Пожалуйста! В данной последовательности чисел, которая задается с клавиатуры, найти количество положительных

var  str : string; i,c,a,count : integer; begin i:=1; count :=0; writeln('Вводите числа, как только введете все числа нажмите любую букву'); while i=1 do begin readln(str); val(str,a,c); if ( a>0) then count := count +1; if(c<>0) then i:=0; end; writeln('Кол-во положительных чисел = ', count); end. ну как то так