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

program prog;

{$i-}

uses
  crt;

var
  val: integer;

begin
  repeat
    ClrScr;
    Write('Введите любое число от -999 до 999: ');
    ReadLn(val);

    if IOResult <> 0 then
    begin
      WriteLn('Ошибка: было введено не числовое значение.');
      exit;
    end;
  until (val > -999) and (val <= 999);

  if val <> 0 then
  begin
    if val < 0 then
      Write('Отрицательное ')
    else
      Write('Положительное ');

    if abs(val) < 10 then
      Write('однозначное ')
    else if abs(val) < 100 then
      Write('двузначное ')
    else if abs(val) < 1000 then
      Write('трёхзначное ');
  end
  else
    Write('Нулевое ');

  WriteLn('число.');

end.

var
  q, k, n: integer;

begin
  repeat
    readln(n);
  until (n > -999) and (n < 999);
  if n < 0 then
    writeln('otricatelnoe');
  if n > 0 then
    writeln('polojitelnoe');
  if n = 0 then
  begin
    writeln('zero');
    q := 1;
  end;
  q := 1;
  if k = 0 then
  begin
    repeat
      n := n div 10;
      k := k + 1;
    until n = 0;
  end;
  if k = 1 then
    writeln('odnoznachnoe');
  if k = 2 then
    writeln('dvyznachnoe');
  if k = 3 then
    writeln('trehznachnoe');

end.