С клавиатуры вводится n целых чисел, несколько положительный и несколько отрицательных, найти сумму положительных. (паскаль) Помогите написать программу.

var i,n,a,sum:integer; begin readln(n);sum:=0;for i:=1 to n do begin readln(a);if a>0 thensum:=sum+aend; writeln(sum) end.