Написати циклчний алгоритм й програму з масивом. Створити масив А для

Const
   N = 8;
Var
   A:array[1..N] of integer;
   i,iMax:integer;
Begin
Randomize;
Write('Начальный массив:');
iMax:=1;
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    if A[i] gt; A[iMax] then iMax:=i;
    End;
WriteLn;
WriteLn('Max = ',A[iMax]);
WriteLn('iMax = ',iMax);
End.