Я, создала файл и нашла в нем максимум, а вот как считывать по 5 элементов и находить конкретно в нем максимум не могу догадаться.
const
n = 15;
var
f, g: file of integer;
A: array[1..n] of integer;
//M: array[1..5] of integer;
max, B: integer;
i: integer;
begin
Assign(f, 'd:/f.dat');
Rewrite(f);
Randomize;
for i := 1 to n do A[i] := random(50) - 20;
for i := 1 to n do
begin
Write(f, A[i]);
Write(' ', A[i]);
end;
Writeln;
close(f);
Assign(f, 'D://f.dat');
Assign(g, 'D://g.dat');
Reset(f); Rewrite(g);
For i:=1 to n do Read(f, B);
max := A[1];
for i := 1 to n do begin
if max < A[i] then begin
max := A[i];end; end;
Write(g, max);
Write(' ', max);
close(g);
close(f);
end.