Вывести на экран фамилии всех ударников и отличников в определенном классе - Turbo Pascal

Формулировка задачи:

Доброго времени суток, помогите разобраться с задачкой: Информация об учениках задана следующими данными: фамилия, класс, оценки по 10 предметам. Вывести на экран фамилии всех ударников и отличников в определенном классе.

Решение задачи: «Вывести на экран фамилии всех ударников и отличников в определенном классе»

Листинг программы

uses crt;
Type
  stud=Record
  fam: String;
   kl: Byte;
  oc1: Byte;
  oc2: Byte;
  oc3: Byte;
  oc4: Byte;
  oc5: Byte;
  oc6: Byte;
  oc7: Byte;
  oc8: Byte;
  oc9: Byte;
  oc10: Byte;
  
end;
Var
  x: Array[1..10] of stud;
  i: Byte;
BEGIN
Writeln('Inter the data of children: ');
For i:=1 to 3 do
begin
  Write('Family: ');  Readln(x[i].fam);
  Write('Class: ');    Readln(x[i].kl);
  Write('1 ocenka: '); Readln(x[i].oc1);
  Write('2 ocenka: '); Readln(x[i].oc2);
  Write('3 ocenka: '); Readln(x[i].oc3);
  Write('4 ocenka: '); Readln(x[i].oc4);
  Write('5 ocenka: '); Readln(x[i].oc5);
  Write('6 ocenka: '); Readln(x[i].oc6);
  Write('7 ocenka: '); Readln(x[i].oc7);
  Write('8 ocenka: '); Readln(x[i].oc8);
  Write('9 ocenka: '); Readln(x[i].oc9);
  Write('10 ocenka: ');Readln(x[i].oc10);
end;
Writeln('Spisok otl: ');
For i:=1 to 3 do
With x[i] do
If (oc1+oc2+oc3+oc4+oc5+oc6+oc7+oc8+oc9+oc10)=50 Then Writeln('Family: ',fam,'; group: ',kl);
 
Writeln('Spisok ud : ');
For i:=1 to 3 do
With x[i] do
If (oc1+oc2+oc3+oc4+oc5+oc6+oc7+oc8+oc9+oc10)<50 Then Writeln('Family: ',fam,'; group: ',kl);
END.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая предоставляет функции для работы с консолью.
Затем определяется тип stud, который представляет собой запись с полями fam (фамилия), kl (класс), oc1-oc10 (оценки от 1 до 10).
Далее объявляется переменная x, которая представляет собой массив из 10 элементов типа stud.
Затем идет цикл for, в котором считываются данные о детях. Для каждого ребенка считываются поля fam, kl, oc1-oc10 и выводятся на экран.
После этого идет еще один цикл for, в котором проверяется, соответствует ли сумма оценок 50. Если да, то выводится на экран фамилия и класс ребенка.
Если сумма оценок меньше 50, то выводится информация о том, что ребенок не относится к группе ударников.
Конец программы.