Составить список абитуриентов, допущенных ко второму экзамену - Pascal (80862)

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

Решите пожалуйста в паскале:При поступлении в университет лица, получившие оценку «неудовлетворительно» на первом экзамене, ко второму экзамену не допускаются. Считая фамилии абитуриентов и их оценки после первого экзамена исходными данными, составить список абитуриентов, допущенных ко второму экзамену.

Решение задачи: «Составить список абитуриентов, допущенных ко второму экзамену»

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

type
    TAbiturient = record
        name: String;
        mark: Byte;
    end;
var
    lowMark, n, i: Byte;
    ar: Array[Byte] Of TAbiturient;
begin
    repeat
        Write('Введите количество абитуриентов: ');
        ReadLn(n);
    until (n > 0);
    for i := 0 to n - 1 do
        with ar[i] do
        begin
            Write('Фамилия абитуриента: '); ReadLn(name);
            Write('Оценка за первый экзамен: '); ReadLn(mark);
        end;
    Write('Введите порог оценки (неудовлетворительно): '); ReadLn(lowMark);
    WriteLn; WriteLn('Список студентов, допущенных ко второму экзамену:');
    for i := 0 to n - 1 do
        with ar[i] do
            if (mark > lowMark)
            then
                WriteLn(name);
end.

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

Объявляется тип TAbiturient, который представляет запись (структуру) с полями name (имя абитуриента) и mark (оценка за первый экзамен).
Объявляются переменные lowMark, n и i, все с типом Byte.
Объявляется массив ar размером n элементов, каждый элемент имеет тип TAbiturient.
Программа запрашивает у пользователя ввод значения переменной n (количество абитуриентов) и продолжает запрашивать значение, пока n не будет больше 0.
Запускается цикл for, в котором для каждого из n абитуриентов запрашиваются их имена и оценки за первый экзамен.
Пользователю предлагается ввести порог оценки для отбора абитуриентов для второго экзамена.
Выводится сообщение, а затем выводится список студентов, чьи оценки превышают установленный порог.