Напечатать название самой высокой вершины массива - Turbo Pascal

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

Задача на записи. Есть тип - vershina - это запись из двух полей: 1 - название типа String; 2 - высота (интервал [1000-9999) Есть massiv [1..10] of vershina. Напечатать название самой высокой вершины из этого массива.

Решение задачи: «Напечатать название самой высокой вершины массива»

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

type  
      vershina =record
          vName :string;
          alt   :1000..9999;
                end;
      arr=array[1..10] of vershina;
 
var
  max,i,num: integer;
  massiv:arr;
 
begin
for i:=1 to 4 do
  begin
    write('Введите имя и высоту (в диапазоне 1000..9999) вершины [',i,']: ');
    readln(massiv[i].vName);
    readln(massiv[i].alt);
  end;
  num:=1;
  max:=massiv[1].alt;
for i:=2 to 4 do
  begin
   if max<massiv[i].alt then
      begin
        max:=massiv[i].alt;
        num:=i;
      end;
  end;
  write('Самая высокая вершина ',massiv[num].vName);
end.

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

Создается тип данных вершина, который включает в себя два поля: vName (имя вершины) и alt (высота вершины).
Создается массив massiv с 4 элементами типа вершина.
Создаются переменные max, i и num для хранения максимальной высоты, текущего индекса и номера вершины с максимальной высотой.
Запускается цикл от 1 до 4, в котором пользователю предлагается ввести имя и высоту вершины.
Введенные данные сохраняются в соответствующем элементе массива massiv.
После завершения цикла, переменная max обновляется и присваивается значение максимальной высоты.
Затем выполняется еще один цикл от 2 до 4, в котором проверяется, является ли текущая высота больше максимальной. Если да, то обновляется значение переменной max и номер вершины с максимальной высотой.
По окончании второго цикла, выводится сообщение с именем вершины с максимальной высотой.