Известен рост учащихся класса. рост мальчиков задан отрицательными числами. определите количество девочек в классе. всё делать при массива

Const n=10;
var a: array[1..n] of integer; 
  i,k: integer;
begin
writeln('Исходный массив:');
for i:=1 to n do begin
 write('a[',i,']=');
 readln(a[i]);
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i]>0 then k:=k+1;
writeln('k = ',k);
end.

Пример:
Исходный массив:
a[1]=168
a[2]=156
a[3]=155
a[4]=-176
a[5]=154
a[6]=-175
a[7]=-173
a[8]=174
a[9]=164
a[10]=-170
k = 6