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

VarA:array[1..33] of integer;i:integer;P:real;BeginWrite('Массив: ');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.