Подсчитать количество отрицательных среди чисел а, b, с- Pascal(Паскаль)

var a,c,b,k:integer;
begin
k:=0;
writeln('введите A');
readln(a);
writeln('введите B');
readln(b);
writeln('введите c');
readln(c);
if a<0 then k:=K+1;
if b<0 then k:=K+1;
if c<0 then k:=K+1;
write(k);
end.