Последовательно вводятся n целых чисел найти сумму всех положительных среди них проверить для n =10

Var A:array [1..10] of integer;
I,S:integer;

begin
for i:= 1 to 10 do begin
writeln('A[',i,']=');
readln(A[i]);
end;

S:=0;
for i:= 1 to 10 do
if (A[i]>0) then s:=s+A[i];
writeln('S=',S);
readln;
end.