Впаскаль(цикл) последовательно вводится n целых чисел.найти количество отрицательных среди них

Var m:array[1..30] of longint;
schet1,i:longint;
begin
for i:=1 to 30 do
begin
read(m[i]);
if m[i]<0 then 
 inc(schet1);
end;
writeln(schet1);
end.

ответ: если я не ошибаюсь, это N деленное на 2