Вкомпьютер вводятся 10 любых целых чисел. нужно подсчитать и один раз напечатать, сколько среди них положительных?

Var A,i,k:integer;
Begin
Write('Введите 10 целых чисел: ');
k:=0;
For i:= 1 to 10 do
    Begin
    Read(A);
    if A>0 then k:=k+1
    End;
Write('Количество положительных: ',k);
End.