Дан список из 10 студентов - Pascal

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

Дан список из 10 студентов, для каждого указаны отметки, полученные ими по трем экзаменам. Вывести список фамилий студентов-отличников.

Решение задачи: «Дан список из 10 студентов»

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

Type
  stud=Record
  fam: String;
  oc1: Byte;
  oc2: Byte;
  oc3: Byte;
end;
Var
  x: Array[1..10] of stud;
  i: Byte;
BEGIN
Writeln('Введите данные о студентах: ');
For i:=1 to 3 do
begin
  Write('Фамилия: '); Readln(x[i].fam);
  Write('1 оценка: '); Readln(x[i].oc1);
  Write('2 оценка: '); Readln(x[i].oc2);
  Write('3 оценка: '); Readln(x[i].oc3);
end;
Writeln('Список отличников:');
For i:=1 to 3 do
With x[i] do
If (oc1=5) and (oc2=5) and (oc3=5) Then
Writeln(fam);
Readln

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

Объявление типа данных stud для описания информации о студенте: содержит строку fam для фамилии и три поля байта oc1, oc2, oc3 для оценок.
Объявление массива x из 10 элементов типа stud для хранения информации о студентах.
Объявление переменной i типа Byte для контроля ввода данных.
Ввод данных о студентах с помощью цикла for и трех вложенных циклов write и readln.
Вывод списка отличников с помощью цикла for и условия if, которое проверяет, равны ли все три оценки 5.
Вывод фамилии отличника с помощью выражения writeln(fam).