В паскаль(цикл)

Последовательно вводится N целых чисел.найти количество отрицательных среди них

Ответы:

var m:array[1..30] of longint,

schet,i:longint,

begin

for i:=1 to 30 do

begin

read(m[i]),

if m[i]&lt,0 then 

inc(schet),

end,

writeln(schet),

end.