Дана последовательность из N чисел.Написать программку которая подсчитывает количество отрицательных чисел

Program  Z2;

var  N, k, i: integer; a: real;

begin

writeln (Введите количество  чисел в последовательности);

readln (N);

k:=0;

for i:=1 to N do

  begin

    writeln (Введите число);

    readln (a);

    if alt;0 then k:=k+1;

 end;

writeln (Количество отрицательных чисел в последовательности= , k);

end.