Все четные элементы файла записать во второй файл и отсортировать их в порядке возрастания

program chislo;
uses crt;
var f1,f2,f3:file of integer;
a:array [1..100] of integer;
n,i,j,m,k,x:integer;
begin
clrscr;
randomize;
writeln('vvedite kolichesnvo chisel');
readln (n);
assign(f1,'c:\file1');
rewrite(f1);
assign(f2,'c:\file2');
rewrite(f2);
assign(f3,'c:\file3');
rewrite(f3);
   for i:=1 to n do
   begin
a[i]:=random(n);
write(f1,a[i]);
    end;
reset(f1);
writeln('Ishodnyj fail:');
while not eof(f1) do
begin
read(f1,a[i]);
write(a[i],' ');
if odd(a[i])then write(f3,a[i])
else write(f2,a[i]);
end;
close(f1);
writeln;
reset(f2);
writeln('Fail chetnih chisel:');
while not eof(f2) do
begin
read(f2,a[i]);
write(a[i],' ');
end;
close(f2);
writeln;
reset(f3);
writeln('Fail nechetnih chisel:');
while not eof(f3) do
begin
read(f3,a[i]);
write(a[i],' ');
end;
close (f3);
readln;
end.

    for i := 1 to n-1 do
        for j := 1 to n-i do
            if a[j] > a[j+1] then begin
                k := a[j];
                a[j] := a[j+1];
                a[j+1] := k
            end;

  repeat  //повторяем цикл до тех пор, пока с не равно 0
      c:=0;
       for i:= 1 to n-1  do
           if mas[i,j]>mas[i+1,j] then // если текущее значение больше следующего
             begin                     //меняем их местами и счетчик +1
               x:= mas[i,j];
               mas[i,j]:=mas[i+1,j];
               mas[i+1,j]:=x;
               c:=c+1;
             end;

reset(f2);

for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;
writeln('Fail chetnih chisel:');
while not eof(f2) do
begin
read(f2,a[i]);
write(a[i],' ');
end;
close(f2);

repeat 
 c:=0
for i:= 1 to n-1 do
if a[j]>a[j+1] then // если текущее значение больше следующего
begin //меняем их местами и счетчик +1
x:= a[j];
a[j]:=a[j+1];
a[i,j+1]:=x;
c:=c+1;
end
until c=0;

reset(f);
for i:=0 to filesize(f)-1 do
  for j:=i+1 to filesize(f)-1 do
   begin
    seek(f,i);
    read(f,k);
    seek(f,j);
    read(f,l);
    if k<l then
    begin
     c:=k;
     k:=l;
     l:=c;
     seek(f,i);
     write(f,k);
     seek(f,j);
     write(f,c);
    end;
   end;
Close(f);