Вводятся 5 целых чисел вывести количество отрицательных . Помогите плиззз!!!

var
    a: array [1..100] of integer;
    i, n, k: integer;

begin
    n := 5;
    for i := 1 to n do
    begin
        read(a[i]);
        if a[i] < 0 then k := k + 1;
    end;
    
    write(k);
end.