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

program cycle_for;
var i,kn : byte; x:real;
begin
   kn:=0;
     for i:=1 to 10 do
       begin
          writeln('Введите ',i,' число: ');
          readln(x);
       if x>0 then kn:=kn+1 {увеличиваем кол-во на 1}
end;
   writeln('Вы ввели ',kn,' положительных чисел.');
readln
end.