Определить, в каком из файлов больше положительных, отрицательных и нулевых

uses crt;
type fi=file of real;
var f1,f2:fi;
    kp1,kp2,ko1,ko2,kn1,kn2: integer;
 
procedure MakeFile(c: char; var ff: fi);
var i: byte; n: real;
begin
rewrite(ff);
for i:=1 to 20+random(50) do
    begin
    n:=199*random-99;
    write(ff,n);
    end;
close(ff);
writeln('Файл ',c,' заполнен случайным количеством случайных чисел');
writeln('Enter для продолжения');
readln;
end;
 
procedure Vyvod (c: char; ff: fi);
var n: real;
begin
writeln('Содержимое файла ',c);
reset(ff);
while not (eof(ff)) do
      begin
      read(ff,n);
      write(n:5:1)
      end;
writeln('');
close(ff);
writeln('Enter для продолжения');
readln;
end;
 
procedure Count (c: char; ff: fi; var kp,ko,kn: integer);
var n: real;
begin
kp:=0; ko:=0; kn:=0;
reset(ff);
while not (eof(ff)) do
      begin
      read(ff,n);
      if n>0 then inc(kp) else
         if n<0 then inc(ko) else inc(kn);
      end;
close(ff);
writeln('Положительных в файле ',c,': ',kp);
writeln('Нулевых       в файле ',c,': ',kn);
writeln('Отрицательных в файле ',c,': ',ko);
writeln('Enter для продолжения');
readln;
end;
 
begin
assign(f1,'D:\f1.dta'); assign(f2,'D:\f2.dta');
MakeFile('1',f1); MakeFile('2',f2);
Vyvod('1',f1);    Vyvod('2',f2);
Count ('1',f1,kp1,ko1,kn1);
Count ('2',f2,kp2,ko2,kn2);
if kp1>kp2 then writeln('Положительных больше в первом') else
   if kp1<kp2 then writeln('Положительных больше во втором') else
      writeln('Количество положительных равно');
if kn1>kn2 then writeln('Нулевых больше в первом') else
   if kn1<kn2 then writeln('Нулевых больше во втором') else
      writeln('Количество нулевых равно');
if ko1>ko2 then writeln('Отрицательных больше в первом') else
   if ko1<ko2 then writeln('Отрицательных больше во втором') else
      writeln('Количество отрицательных равно');
readkey
end.