Дано 2 файла вещественных чисел а1.dat и а2.dat. В каком из двух данных файлов больше отрицательных элементов — Pascal(Паскаль)

uses crt;
var b1,b2: file of real;
a,b:real;
kol1,kol2:integer;
begin
clrscr;
 assign(b1,'a1.dat');
rewrite(b1);
writeln('Введите числа в файл а1:');
repeat
write('a=');
readln(a);
write(b1,a);
until a=0;
 
 assign(b2,'a2.dat');
rewrite(b2);
writeln('Введите числа в файл а2:');
repeat
write('b=');
readln(b);
write(b2,b);
until b=0;
clrscr;
 
reset(b1);
while not eof(b1) do
begin
 readln(b1,a);
 if  a<0 then inc(kol1);
end;
 
reset(b2);
while not eof(b2) do
 if  b<0 then inc(kol2);
 
if kol1>kol2 then writeln('В файле а1 больше отрицательных элементов')
             else writeln('В файле а2 больше отрицательных элементов');
 
 
close(b1);
close(b2);
end.