Ввести n разных чисел. найти количество положительных чисел

Var
   N,A,k:integer;
Begin
Write('N = ');
ReadLn(N);
k:=0;
For N:= 1 to N do
    Begin
    Read(A);
    if A>0 then k:=k+1;
    End;
WriteLn('Кол-во положительных, среди введённых: ',k);
End.