Решение задачи № 2 из главы 15. Найти в массиве два самых больших числа .Вариант 2

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.

Задача №2 из главы 15

program pascal_maximum2;
var i ,max1, max2 , var1 : integer;
arr : array[ 1..7 ] of integer;
   
{ обходим первый раз массив,
 с целью присвоить значения элементам }
begin
  for i := low(arr) to high(arr) do
  begin
    writeln('input digit :');
    readln( arr[i] ); // считываем элемент i массива 'arr' из консоли  
  end;
  max1 := arr[1]; // присваиваем переменной  значение массива с индексом 1
  max2 := arr[2]; // присваиваем  переменной значение массива с индексом 2
     
  { если выполняется условие то перезаписываем  значения переменных
  с помощью дополнительной переменной var1 ,теперь max1 всегда будет
  больше max2}
  if ( max2 > max1 ) then
  begin
    var1 := max1;
    max1 := max2;
    max2 := var1;
  end;
  { обходим второй раз массив,
   с целью определения двух максимумов }
  for i := 3 to high(arr) do // с 3 элемента массива
    if( arr[i] > max1 ) then
    begin
      max2 := max1;
      max1 := arr[i];
    end
    else
      if( arr[i] > max2 ) then
        max2 := arr[i];          
  writeln( 'max values : ', max1 ,' ', max2 );
  readln();
  end.