Пусть дан файл целых чисел f. Определить, сколько раз в нем повторяется максимальное значение — Pascal(Паскаль)

var f:file of integer;
    max,count,a:integer;
begin
assign(f,'myfile.txt');
reset(f);
max:=-MaxInt;
while not EOF(f) do
begin
   read(f,a);
   if (a>max) then max:=a;
end;
count:=0;
while not EOF(f) do
begin
   read(f,a);
   if (a=max) then inc(count);
end;
close(f);
writeln('count = ', count);
readln;
end.