Черт, выявил-таки один ляп: если n кратно 5 (напр. не 48, а 45), то в конце вылезает -100. Поэтому самый последний блок надо так:
Код:
if (n mod 5)>0 then
begin
Max:=-100;
for j:=5*m+1 to n do
if A[j]>Max then Max:=A[j];
write(g,Max);
write(Max:4);
end;