Ввести n чисел .Правильно ли что количество введённых отрицательных чисел не

Решение задачки:
Код написан в программке PascalABC.NET.
Var a: array[1..100] of real;
i,n,k: integer;
begin
write(Введите размерность n = );
readln(n);
write(Массив: );
k:=0;
for i:=1 to n do
begin
write(Введите a[, i, ] = ); readln(a[i]);
if a[i]lt;0 then k:=k+1;
end;
writeln;
writeln(Количество отрицательных частей = ,k);
if klt;=5 then write(Ответ: да, верно.) else write(Ответ: нет, ошибочно.);
end.