Структура STUDENT. Pascal

Структура STUDENT содержит следующие поля:
- фамилия и инициалы;
- номер группы;
- успеваемость (массив из пяти элементов).
Выполнить следующие действия:
- вывод на дисплей фамилий и номеров групп тех студен-тов, средний балл успеваемости которых больше 4.0;
- если таких студентов нет, вывести соответствующее сообщение.

uses crt;
 
const 
  nmax = 10;
 
type Student = record
  Name : string[25];
  Number : integer;
  Marks : array [1..5] of integer;
  end;
 
var
  S : array [1..nmax] of Student;
  i, j, n : integer;
  sum : real;
  flag : boolean;
  
begin
repeat
Write('Количество студентов: ');
Readln(n);
until n in [1..nmax];
for i := 1 to n do
  begin
  Writeln('Информация о ', i, ' студенте');
  Write('Фамилия и инициалы: '); Readln(S[i].Name);
  Write('Номер группы: '); Readln(S[i].Number);
  for j := 1 to 5 do
    begin
    Write('Успеваемость по ', j, ' предмету: ');
    Readln(S[i].Marks[j]);
    end;
  end;
flag := false;  
for i := 1 to n do
  begin
  sum := 0;
  for j := 1 to 5 do
    sum := sum + S[i].Marks[j];
  Sum := Sum/5;
  if Sum > 4.0 then 
    begin
    Writeln(' Фамилия студента: ', S[i].Name, '. Номер группы: ', S[i].Number);
    flag := true;
    end;
  end;
if flag = false then Writeln('Таких студентов нет!');  
end.

Источник