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

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

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

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 задач,может кому пригодяться!