Файлы, MAx эелементы и их сортировка Опции

[Zundell]

Дали нам домой 5 задач,4 сделал,а вот одна не получается...по всякому пробовал,но ниче не получилось(
Текст задания:Создать файли из N целых чисел.Найти число повторяющееся максимальное колличество раз.Если таких несколько то все из них.Записать эти числа в другой файл и там отсортировать(без разницы как).

вот мои попытки нахождения maxимальных:

Var
f,:f1file of integer;
a:real;
i,n,k,b,c,j:integer;
begin
assign(f,'abs.dat');assign(f1,'absd.dat');
rewrite(f);
read(n);
for i:=1 to n do
begin
write('a=');
read(a);
write(f,a);
end;
close(f);
end;
reset(f);rewrite(f1);
k:=0;
for i:=0 to fileseze(f)-1 do
begin
seek(f,i);
read(f,c);
for j:=i+1 to filesize(f)-1 do
begin
seek(f,j);
read(f,b);
if b=c then do
inc(k);
end;
write(f1);
end;
close(f1);

помогите пожалуйста

[мисс_граффити]

не поняла, чего ты от меня добиваешься.
я вот так тестировала (код полностью)

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. 

[Zundell]

Спасибо тебе большое,readln над было паставить))все, я все 5 задач сделал,сортировку вообще элементарна!Завтра препод проверит,выложу все 5 задач,может кому пригодяться!