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

program one;
var s1, s2, s3, s4, s5: string;
n: integer;
begin
 
writeln('Введите число');
readln(n);
s1 := 'отрицательное чётное число';
s2 := 'отрицательное нечётное число';
s3 := 'нулевое число';
s4 := 'Положительное чётное число';
s5 := 'Положительное нечётное число';
if (n = 0) then
  writeln(S3);
if (n < 0) then
begin
   if (n mod 2 = 0) then
      writeln(S1);
   if (n mod 2 <> 0) then
      writeln(S2);
end;
if (n > 0) then
begin
   if (n mod 2 = 0) then
      writeln(S4);
   if (n mod 2 <> 0) then
      writeln(S5);
end;
end.