Подсчитать колво цифр

var a: array[1… 100] of integer; i,n,k: integer; begink: =1; read (n); //Вводите количество самих элементовfor i: =1 to n do begin//Ввод самих элементовread (a[i]); if a[i]>=0 then k: =k+1; //Подсчет элементов >0end; writeln ('Количество не отрицательных элементов=',k); //Выводreadln; end.