Ребят кто шарит паскаль

Задание 1

1. program task31143737;
2. var x: integer;
3. begin
4.  x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
5.  if x mod 2 = 0 then
6.    Writeln('ЧИСЛО ', x, ' ЧЁТНОЕ')
7.  else
8.    Writeln('ЧИСЛО ', x, ' НЕЧЁТНОЕ');
9. end.

Задание 2

Тут стоит ввести ограничение на ввод, т.к если юзер введёт x (x gt;= 100), то программка укажет, что это тоже двузначное число.

1. program task31143737;
2. var x: integer;
3. begin
4.  x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
5.  if ((x gt; 9) or (x lt; -9)) then
6.    Writeln('ЧИСЛО ', x, ' ДВУЗНАЧНОЕ')
7.  else
8.    Writeln('ЧИСЛО ', x, ' ОДНОЗНАЧНОЕ');
9. end.