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

Program Test;
Uses Crt;
Var
  A,B,C:integer;
  Res:integer;
BEGIN
  writeln('Input A,B,C');
  readln(A,B,C);
  Res:=ord(A<0)+ord(B<0)+ord(C<0);
  Write('Result= ',Res);
  repeat
  until KeyPressed
END.

Var
a,b,c,k:integer;
begin
readln(a,b,c);
k=0;
if a<0 then inc(k);
if b<0 then inc(k);
if c<0 then inc(k);
write(k);
end.