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

var
  f, g : file of integer;
  n, i, j, k : byte;
  a, max : integer;
  s, s1 : string;
begin
  write('Введите имя исходного файла : ');
  readln(s1);
  assign(f,'s1.txt');
  rewrite(f); 
  randomize;
  n := random(20);
  for i := 1 to n do
    write(f,(random(10)));
  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.txt');
  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;
    if filesize(f) mod 5 <> 0 then begin
  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);
  end;
  writeln('Содержимое файла ',s,' :');
  reset(g);
  while not eof(g) do
    begin
      read(g,a);
      write(a:4);
    end;
  readln;
  close(f);
  close(g);
end.

  assign(f, s);

  assign(g, s);

  assign(f, s + '.bin');

var f, g: text;
    n, i, a, max: integer;
    s: string;
begin
  randomize;
  write('Введите имя исходного файла: ');
  readln(s);
  assign(f, s + '.txt');
  rewrite(f);
  n := random(200);
  for i := 0 to n do
    begin
      if (i > 0) and (i mod 5 = 0) then writeln(f);
      write(f, -99 + random(199):4)
    end;
  reset(f);
  writeln('Содержимое исходного файла ', s, '.txt: ');
  while not seekeof(f) do
    begin
      read(f, a);
      write(a:4)
    end;
  writeln;
  write('Имя файла, содержащего наибольшие элементы из групп по 5 элементов : ');
  readln(s);
  assign(g, s + '.txt');
  rewrite(g);
  reset(f);
  i := 0;
  while not seekeof(f) do
    begin
      read(f, a);
      if (i = 0) or (max < a) then max := a;
      if i = 4 then writeln(g, max);
      i := (i + 1) mod 5
    end;
  if i > 0 then writeln(g, max);
  writeln('Содержимое файла ', s, '.txt: ');
  reset(g);
  while not seekeof(g) do
    begin
      read(g, a);
      write(a:4)
    end;
  readln;
  close(f);
  close(g)
end.