Решение № 1 из главы 15.Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число

Задача № 1

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

program pascal_array_max1;

type new_array = array[1..7]of integer;
var Arr : new_array;
    i, maximum : integer;

begin // начало тела основной программы
 for i := low( Arr ) to high ( Arr ) do // цикл с параметром  
 begin
   writeln( 'Input digit Arr : ' );
   readln( Arr[i] ); // считываем элемент i массива Arr из консоли
 end;
 maximum := Arr[1];// присваиваем переменной значение массива с индексом 1  
 for i:= low(Arr) to high(Arr) do // обходим массив   
   if ( Arr[i] > maximum ) then // если значение массива больше maximum   
     maximum := Arr[i] ;        // переменной maximum присваивается значение элемента массива
 write( 'Maximal digit :' ,maximum); // выводим максимальное значение
    
end. // конец тела основной программы