Нужна программа в паскале. с клавиатуры вводятся значения переменной x. найдите сумму только а=положительных элементов и их число.

Program test;
uses crt;
var x,n,sum,i:integer;
begin
clrscr;
 write('Input x ');readln(x);
 for i:=1 to x do
  begin
   write('Input number',i,' '); readln(n);
   if n>0 then sum:=sum+n;
  end;
writeln(sum);
readln;
end.