Напишите программу,которая определяет сумму всех положительных чисел вводимой последовательности из N целых чисел. - Pascal

Program aaa;
var n,i:integer; temp,sum:real;
begin
writeln('enter a size');
read(n);
sum:=0;
while (i<>n)
do
begin
read(temp) ;
if temp>0 then sum:=sum+temp;
i:=i+1;
end;
write('Suma=',sum);
end.