[Страдалецъ]

Дельфи вполне нормально справляется с таким кодом почти без переделок. Попробуйте так:

Код:

{$APPTYPE CONSOLE}
uses
  Windows;

var f:file of integer;
    a,mx,k:integer;
begin
SetConsoleOutputCP(1251);
assignfile(f,'file1');
rewrite(f);
writeln('Введите целые числа в файл f, окончание ввода 0:');
repeat
write('a=');
readln(a);
write(f,a);
until a=0;
writeln('Содержание файла f:');
reset(f);
read(f,mx);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if a>mx then mx:=a;
 end;
writeln;
close(f);
reset(f);
k:=0;
reset(f);
while not eof(f) do
 begin
  read(f,a);
  if a=mx then k:=k+1;
 end;
close(f);
write('Максимум =',mx,'  количество=',k);
readln
end.