Дано естественное число.Напишите программку,которая инспектирует, является ли оно четырехзначным и

var

 n, i: Integer;

 s: string;

 isu: Boolean;

begin

 Write ('Введите число: ');

 Read (n);

 if (n gt;= 1000) and (n lt;= 9999) then

   WriteLn ('Это число четырехзначное')

 else

   WriteLn ('Это число не четырехзначное');

 s := IntToStr (n);

 isu := True;

 for i := 1 to Length (s) - 1 do begin

   if s [i] lt;= s [i + 1] then begin

     isu := False;

     Break;

   end;

 end;

 WriteLn;

 if Isu then

   WriteLn ('Числа размещены в порядке убывания')

 else

   WriteLn ('Числа НЕ расположены в порядке убывания');

end.