Найти наибольший элемент числового массива — Pascal(Pascal)

{          Пример 2.2. Найти наибольший элемент числового массива
                     А = (a1, a2, ..., aN) и его порядковый номер.

                                   Тест
              ╔════════════════════════════╦═════════════════╗
              ║            Данные          ║   Результаты    ║
              ╠═══════╤════════════════════╬═════════╤═══════╣
              ║ N = 4 │ А = (3, -1, 10, 1) ║ Amax=10 │  k=3  ║
              ╚═══════╧════════════════════╩═════════╧═══════╝
}
 Program MaxElem;
   Uses Crt;
   Type Mas = Array [1..20] of Real;
   Var A    : Mas;
       i, N : Integer;
       k    : Integer;
       Amax : Real;
 BEGIN
   СlrScr;
   Write('Введите N = ');  ReadLn(N);
   For i := 1 to N do  {Ввод значений элементов массива А}
     begin
       Write('A [ ', i, ' ] = '); ReadLn(A[i])
     end;

   Amax := A[1]; k:=1; {Поиск максимального элемента}
   For i := 2 to N do
     If A[i] > Amax then
       begin
         Amax := A[i]; k := i
       end;

   WriteLn; WriteLn('Наибольший элемент' , k , '-й');
   WriteLn('Его значение ', Amax : 5 : 1); ReadLn
 END.