Лабы / 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.