Вывод четных и нечетных элементов массива

const
n=10;
var
 
f1,f2: text;
i,s,f,t1,t2,j,t,a: integer;
m: array[1..n] of integer;
b:string;
 
begin
 
assign (f1, 'c:\1.txt');
assign (f2, 'c:\2.txt');
 
cls;
for i:=1 to n do m[i]:=random(10);
 
rewrite(f1);
writeln (f1, 'Массив');
for i:=1 to n do
begin
a:=m[i];
write(f1,a,' ');
end;
writeln;
close(f1);
 
for j:=1 to n-1 do
     for i:=1 to n-j do
       if m[i]>m[i+1] then
         begin
         t:=m[i]     ;
         m[i]:=m[i+1] ;
         m[i+1]:=t;
   end;
 
append (f1);
writeln (f1, 'Сортированный массив');
for i:=1 to n do
begin
a:=m[i];
write(f1,a,' ');
end;
writeln;
close(f1);
 
for i:=1 to n do begin
                 if m[i] mod 2=0 then begin
                                      s:=s+m[i];
                                      t1:=t1+1;
                                      end
                                 else begin
                                      f:=f+m[i];
                                      t2:=t2+1;
                                      end;
                 end;
                 
Reset(f1); //Открытие для чтения
begin
 
Rewrite(f2);
 
//блок переноса записей
 
While not eof(f1) do
Begin
Readln(f1,b);
Writeln(f2,b);
End;
 
Close(f2);
end;
Close(f1);
 
append (f2);
a:=s;
write (f2, 'Сумма четных - ', a);
writeln;
a:=t1;
write (f2, 'Количество четных - ', a);
writeln;
a:=f;
write (f2, 'Сумма нечетных - ', a);
writeln;
a:=t2;
write (f2, 'Количество нечетных - ', a);
close(f2);
 
reset(f2);
While not eof(f2) do
Begin
Readln(f2,b);
Writeln(b);
End;
close (f2);
 
end.