Определить разрядность и знак числа из интервала [-100; 100] число задать случайным образом. Pascal ABC

Var x:byte;

razryad, chastnoe:integer;

begin

x : = Random (200) - 100;

razryad : = 0;

repeat

razryad : = razryad + 1;

chastnoe : = x div 10;

until (chastnoe 0) ;

if x < 0 then write ("Число: ", x, "отрицательное, количество разрядов: ", razryad) else

if x > 0 then write ("Число: ", x, "положительное, количество разрядов: ", razryad) else

write ("Число:", x," равно нулю, количество разрядов: ", razryad) ;

writeln;

end.

Var

n:integer;

b, c:string;

begin

n:=random (200) - 100;

if n>0 then

b:='+' else b:='-';

if (abs (n) >10) then

c:='десятки';

if (abs (n) <10) then

c:='единицы';

writeln ('число=', n,' знак ', b,'разрадность ', c) ;

end.