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

varn:integer;b,c:string;beginn:=random(200)-100;if n>0 thenb:='+' else b:='-';if (abs(n)>10) thenc:='десятки';if (abs(n)<10) thenc:='единицы';writeln('число=',n,' знак ',b,'разрадность ',c);end.

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.