Задать массив из 10 чисел с клавиатуры ,подсчитать произведение положительных элементов массива. ,!

Uses Crt;
Const
   N = 10;
Var
   A:array[1..N] of integer;
   i:integer;
   P:real;
Begin
ClrScr;
P:=1;
Write('Введите массив A(',N,'): ');
For i:= 1 to N do
    Begin
    Read(A[i]);
    if A[i] > 0 then P:=P*A[i];
    End;
Write('P = ',P);
ReadLn;
End.