Подсчитать колво цифр (чисел) не отрицательных среди N-произвольных и вывести на экран

var a:array[1 ... 100] of integer;

i, n, k:integer;

begin

k:=1;

read (n) ; / / Вводите количество самих элементов

for i:=1 to n do begin//Ввод самих элементов

read (a[i]) ; if a[i]>=0 then k:=k+1; //Подсчет элементов >0

end;

writeln ('Количество не отрицательных элементов=', k) ; / / Вывод

readln;

end.