Записать в файл g наибольшее значение первых пяти компонент файла f, затем - следующих пяти компонент и т.д.

program f1;
uses
  crt;
var
  f, g : file of integer;
  n, i, j, k : byte;
  a, max : integer;
  s, s1 : string;
begin
  clrscr;
  write('Введите имя исходного файла : ');
  readln(s1);
  assign(f,s1);
  rewrite(f);
  randomize;
  n := random(30)+5;
  for i := 1 to n do
    write(f,(random(31)-15));
  writeln('Содержимое исходного файла ',s1,' :');
  reset(f);
  while not eof(f) do
    begin
      read(f,a);
      write(a:4);
    end;
  writeln;
  write('Имя файла g, содержащего наибольшие элементы из групп по 5 элементов : ');
  readln(s);
  assign(g,s);
  rewrite(g);
  j := 1;
  for i := 1 to filesize(f) div 5 do
    begin
      seek(f,j-1);
      read(f,a);
      max := a;
      for k := 2 to 5 do
        begin
          seek(f,k-1+j-1);
          read(f,a);
          if a>max then max := a;
        end;
      write(g,max);
      inc(j,5);
    end;
  seek(f,5*i);
  read(f,a);
  max := a;
  for k := 2 to filesize(f)-5*i do
    begin
      seek(f,5*i-1+k);
      read(f,a);
      if a>max then max := a;
    end;
  write(g, max);
  writeln('Содержимое файла ',s,' :');
  reset(g);
  while not eof(g) do
    begin
      read(g,a);
      write(a:4);
    end;
  readln;
end.

 if filesize(f) mod 5 <> 0 then begin

end;