Ввести 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<0 then k:=k+1;
 end;
 if k<=5 then writeln ('верно, что количество отрицательных чисел не превышает 5')
 else
  writeln ('неверно, что количество отрицательных чисел не превышает 5')
   end.