Лабы / Pascal.1.курс / part 2 / var 14 / LAB4

program lab4;
uses crt;

var
  f:file of integer;
  name:string;
  ii,i,j,t:integer;
  a:array[1..20] of integer;
  b:array[1..20] of integer;

begin

  clrscr;
  repeat
    write('Enter file name: ');
    readln(name);
    assign(f,name);
    {$I-}
    reset(f);
    {$I+}
    ii:=ioresult;
    if ii<>0 then writeln('File ',name,' not found');
  until ii=0;

  writeln('Input file');
  while not eof(f) do begin
    inc(i);
    read(f,a[i]);
    write(a[i],' ');
  end;
  writeln;
  writeln;

  j:=1;
  for i:=1 to 20 do begin
    if ((a[i] mod 2)=0) then begin
      b[j]:=a[i];
      inc(j);
    end;
  end;

  for i:=1 to 20 do begin
    if ((a[i] mod 2)<>0) then begin
      b[j]:=a[i];
      inc(j);
    end;
  end;

  rewrite(f);
  writeln('New file');
  for i:=1 to 20 do begin
    write(f,b[i]);
    write(b[i],' ');
  end;

end.