Написать программу, которая запрашивает данные на 2-ух учеников

const
    N = 50;
    NN = 5;
type
    TSchoolboy = record
        surname, name: String[20];
        age, height: Byte;
        avr: Real;
    end;
    TSchoolboyArray = Array[1..N] Of TSchoolboy;
var
    ar: TSchoolboyArray;
    i: Byte;
begin
    for i := 1 to NN do
        with ar[i] do
        begin
            Write('Фамилия: '); ReadLn(surname);
            Write('Имя: '); ReadLn(name);
            Write('Возраст: '); ReadLn(age);
            Write('Рост: '); ReadLn(height);
            Write('Средний балл: '); ReadLn(avr);
        end;
    {сортируем массив так, чтобы сначала шли самые средние, а в конце - самые уникальные}
    WriteLn; WriteLn;
    for i := 1 to NN do
        with ar[i] do
            WriteLn(surname:20, ' ', name:20, ': возраст - ', age:2, ', рост - ', height:3, ', средний балл - ', avr:0:2);
end.