Найдите произведение положительных элементов в массиве

Var A:array[1..33] of integer; i:integer; P:real; Begin Write('Массив: '); P:=1; For i:= 1 to 33 do     Begin     A[i]:=random(21)-10;     Write(A[i],' ');     if A[i]>0 then P:=P*A[i];     End; WriteLn; Write(P) End.