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

Var
 a: real;
 n,k,i: integer;
 begin
 writeln (vvedi n);
 readln(n);
 k:=0;
 for i:=1 to n do
 begin
  writeln (vvedi a);
 readln(a);
 if a end;
 if k else
  writeln (неверно, что количество отрицательных чисел не превышает 5)
   end.