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

program pr;
 
type
  stude = record
    surname: string[50];
    inn: integer;
    born: string[50];
    enter: integer;
    curse: integer;
    group: string[50];
    markmath: integer;
    markprog: integer;
    markit: integer;
  end;
 
var
  peop: array [1..100] of stude;
  i, n, x: integer;
 
begin
  writeln('|--------------Составление списка студентов----------------|');
  writeln;
  writeln('Введите количество студентов');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите фамилию');
    readln(peop[i].surname);
    writeln('Введите ИНН');
    readln(peop[i].inn);
    writeln('Введите дату рождения');
    readln(peop[i].born);
    writeln('Введите год поступления');
    readln(peop[i].enter);
    writeln('Введите курс');
    readln(peop[i].curse);
    writeln('Введите группу');
    readln(peop[i].group);
    writeln('Введите оценку за сессию по математике ');
    readln(peop[i].markmath);
    writeln('Введите оценку за сессию по программированию ');
    readln(peop[i].markprog);
    writeln('Введите оценку за сессию по IT ');
    readln(peop[i].markit);
    writeln;
  end;
  writeln;
  writeln('Критерий отчисления( минимальный бал)');
  readln(x);
  writeln('Список студентов рекомендованных к отчислению');
  for i := 1 to n do
    if (((peop[i].markmath) + (peop[i].markprog) + (peop[i].markit)) / 3) < x then
    begin
      writeln(peop[i].surname);
    end;
end.

{$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.