Создать файл f1 из целых чисел. Записать в файл f2 наибольшее из первых 5 компонент, затем из следующих 5 и т.д. Последняя группа может содержать меньше пяти компонент. — Pascal(Паскаль)

uses crt;

var
  a, prom: integer;
  i, n: byte;
  f1, f2: file of integer;

begin
  clrscr;
  write('vvedite kol-vo chisel, zapisivaemih v fail: ');
  readln(n);
  writeln;
  if n <> 0 then
  begin
    assign(f1, 'file1.bin');
    rewrite(f1);
    for i := 1 to n do
    begin
      write('vvedite chislo: ');
      readln(a);
      writeln;
      write(f1, a);
    end;
    assign(f2, 'file2.bin');
    rewrite(f2);
    reset(f1);
    i := 1;
    n := 5;
    while i <= filesize(f1) do
    begin
      while (i <= filesize(f1)) and (i <= n) do
      begin
        if (i + 4) mod 5 = 0 then
          read(f1, prom)
        else
        begin
          read(f1, a);
          if a > prom then
            prom := a;
        end;
        inc(i);
      end;
      inc(n, 5);
      write(f2, prom);
    end;
    writeln;
    writeln('chisla 2-ogo faila: ');
    reset(f2);
    for i := 1 to filesize(f2) do
    begin
      read(f2, a);
      write(a:4);
    end;
    close(f1);
    close(f2);
  end
  else
    writeln('v 1-m faile elementov net');

end.