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

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.

ну как то так