Дано натуральное число n и последовательность из n натуральных чисел. написать программу определяющую количество положительных членов в последовательности

Pascal
var
 mas:array[1..100] of integer;
 sum,n,i:integer;
begin
 readln(n);
 sum:=0;
 for i:=1 to n do
  readln(mas[i]);
 for i:=1 to n do
  if mas[i]>0 then
   sum:=sum+1;
 writeln(sum);
end.