Даны три целых числа. Найти количество положительных чисел и количество отрицательных чисел в исходном наборе — Pascal(Паскаль)

Program If5;

Var
  A, B, C, k_plus, k_minus: Integer;

Begin
  k_plus := 0;
  k_minus := 0;
  WriteLn('Введите числa A,B и C: ');
  ReadLn(A, B, C);
  If A > 0 Then
    k_plus := k_plus + 1
  Else
    k_minus := k_minus + 1;

  If B > 0 Then
    k_plus := k_plus + 1
  Else
    k_minus := k_minus + 1;

  If C > 0 Then
    k_plus := k_plus + 1
  Else
    k_minus := k_minus + 1;
  WriteLn('Количество положительных чисел в исходном наборе:', k_plus);
  WriteLn('Количество отрицательных чисел в исходном наборе:', k_minus);

End.