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

{$MODE TP}
const
    m_max = 3;
type
    TMarks = Array[0..m_max - 1] Of Byte;
    TStudent = record
        surname: String[50];
        vatId: String;
        birthDate: String[10];
        admissionYear: Word;
        studyCourse: Byte;
        group: String[20];
        marks: TMarks;
    end;
function GetAvr(const marks: TMarks): Single;
var
    Result: Single;
    j: 0..m_max;
begin
    Result := 0;
    for j := 0 to m_max - 1 do
        Result := Result + marks[j];
    GetAvr := Result / m_max;
end;
var
    ar: Array[Byte] Of TStudent;
    i, j, n: Byte;
    avr: Single;
begin
    repeat
        Write('How much students add? '); ReadLn(n);
    until (n > 0);
    for i := 0 to n - 1 do
        with ar[i] do
        begin
            Write('Input surname: '); ReadLn(surname);
            Write('Input VAT identification number: '); ReadLn(vatId);
            Write('Input date of birth: '); ReadLn(birthDate);
            Write('Input admission year: '); ReadLn(admissionYear);
            Write('Input course: '); ReadLn(studyCourse);
            Write('Input group: '); ReadLn(group);
            for j := 0 to m_max - 1 do
            begin
                Write('Input ', j + 1, ' mark: '); ReadLn(marks[j]);
            end;
        end;
    WriteLn; WriteLn;
    Write('Input critical avr: '); ReadLn(avr);
    for i := 0 to n - 1 do
        with ar[i] do
            if (GetAvr(marks) < avr)
            then
                WriteLn(surname);
end.