Знайти індекс мінімального елемента масиву. обчислити добуток його від'ємних елементів

Uses Crt;
Var
   A:array[1..256] of integer;
   P,s:real;
   i,iMin,N:integer;
Begin
ClrScr;
Randomize;
Write('N = ');ReadLn(N);
Write('A(',N,'):');
P:=1;
S:=0;
iMin:=1;
For i:= 1 to n do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    if A[i] < A[iMin] then iMin:=i;
    if A[i] < 0 then P:=P*A[i]
    else if A[i] > 0 then S:=S+A[i];
    End;
WriteLn;
WriteLn('Min(A) = ',A[iMin],'[',iMin,']');
WriteLn('P = ',P:0:3);
WriteLn('S = ',S:0:3);
ReadKey
End.