массив заполнить случайным образом целыми числами [-14;40] найдите минимальный индекс

и контрольный пример

VarA:array[1..33] of integer;i,n:integer;BeginFor i:= 1 to 33 do    Begin    A[i]:=random(41)-14;    Write(A[i],' ');    End;n:=1;For i:= 2 to 33 do    if A[i]<A[n] then n:=i;WriteLn;WriteLn('Индекс минимального элемента массива: ',n);End.