Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число», «положительное нечетное число» и т. д. — Pascal(Паскаль)

Program If29;

Var
  x: Integer;

Begin
  ReadLn(x);
  If x < 0 Then
    Write('отрицательное ');
  If x > 0 Then
    Write('положительное ');
  If x = 0 Then
    Write('нулевое ');

  If x Mod 2 = 0 Then
    WriteLn('четное ')
  Else
    WriteLn('нечетное ');

End.