Вывести строку — словестное описание заданного числа

uses crt;
 
var
    n:integer;
begin
    clrscr;
    Write('N=');readln(n);
    if ((n>=-999) and (n<=-100)) then writeln('отрицательное трехзначное');
    if ((n>=-99) and (n<=-10)) then writeln('отрицательное двухзначное');
    if ((n>=-9) and (n<=-1)) then writeln('отрицательное однозначное');
    if (n=0) then writeln('нулевое число');
    if ((n<=999) and (n>=100)) then writeln('положительное трехзначное');
    if ((n<=99) and (n>=10)) then writeln('положительно двухзначное');
    if ((n<=9) and (n>=1)) then writeln('положительное однозначное');
    Readln;
end.

Var i: integer;
begin
repeat
 readln(i);
until (i>=-999) and (i<=999);
if (i>0) then write('Ïîëîæèòåëüíîå ')
else if (i<0) then write('Îòðèöàòåëüíîå ')
else if (i=0) then write('Íîëü.');
if (abs(i) in [10..99]) then write('äâóçíà÷íîå ÷èñëî.')
else if (abs(i)>=100) and (abs(i)<=999) then write('òð¸õçíà÷íîå ÷èñëî')
else if (abs(i) in [1..9]) then write('îäíîçíà÷íîå ÷èñëî.');
readln
end.