Ввести N чисел с клавиатуры подсчитать количество положительных чисел

Program  zadacha_polojit_chisla;

var a, N, k,i: integer;

begin

writeln (Введите целое число N);

readln (N);

k:=0;

for i:=1 to N do

 begin

Writeln (Введите целое число); 

readln (a);

   if a gt; 0 then k:=k+1;

 end;

writeln (Количество положительных чисел = , k);

end.