Нужна программа в Паскале.

 С клавиатуры вводятся значения переменной 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.