я вот так тестировала (код полностью)
program chisla;
uses crt;
const n=10;
var
f,f1: file of integer;
i,tek,posicion,max,kolvo: integer;
begin
clrscr;
randomize;
assign(f,'fail.in');
{zapolnenie ishodnogo faila}
rewrite(f);
for i:=1 to n do
begin
max:=random(10);
write(f,max);
write(max:3);
end;
close(f);
assign(f1,'fail.out');
rewrite(f1);
reset(f);
max:=0;
while not(EOF(f)) do
begin
read(f,i);
kolvo:=1;
posicion:=filepos(f);
while not(EOF(f)) do
begin
read(f,tek);
if tek=i then
inc(kolvo);
end;
if kolvo>max then
begin
close(f1);
rewrite(f1);
write(f1,i);
max:=kolvo;
end
else
if kolvo=max then
write(f1,i);
seek(f,posicion);
end;
close(f);
close(f1);
writeln;
writeln(max);
reset(f1);
while not(EOF(f1)) do
begin
read(f1,i);
write(i:3);
end;
end.