Ввести 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.