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

program two;
var n: integer;
s1, s2, s3, s4, s5, s6: string;
begin
s1 := 'Чётное однозначное';
s2 := 'Чётное двузначное';
s3 := 'Чётное трёхзначное';
s4 := 'Нечётное однозначное';
s5 := 'Нечётное двузначное';
s6 := 'Нечётное трёхзначное';
if (n mod 2 = 0) then
begin
   if (n < 10) then
      writeln(S1);
   if (n >=10) and (n < 100) then
      writeln(S2);
   if (n >= 100) and (n < 1000) then
      writeln(S3);
end;
if (n mod 2 <> 0) then
begin
   if (n < 10) then
      writeln(S4);
   if (n >=10) and (n < 100) then
      writeln(S5);
   if (n >= 100) and (n < 1000) then
      writeln(S6);
end;
end.