подсчитать количество отрицательных чисел из 10, введенных с клавиатуры

uses crt;vara:real;k,i:integer;beginfor i:=1 to 10 do beginreadln(a);if a<0 thenk:=k+1;end;write(k)end.