Найти max и min число в массиве и вывести его индекс. (Pascal)

Const

N = 13;

Var

A:array[1 ... N] of integer;

i, Min, Max:integer;

Begin

Randomize;

Write ('Исходный массив:') ;

Max:=1;

Min:=1;

For i : = 1 to N do

Begin

A[i]:=random (21) - 10;

Write (' ', A[i]) ;

if A[i] < A[Min] then Min:=i;

if A[i] > A[Max] then Max:=i

End;

WriteLn;

WriteLn ('Min = ', A[Min],'[', Min,']') ;

WriteLn ('Max = ', A[Max],'[', Max,']') ;

End.