Подсчитать колво цифр(чисел) не отрицательных среди 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.