Представить число 30₁₀ в беззнаковом 8-разрядном формате ?

program Phone;
var day:integer; time:real; week:array[1..7] of string;
begin
  week[7]:='Воскресенье';
  week[6]:='Суббота';
  week[5]:='Пятница';
  week[4]:='Четверг';
  week[3]:='Среда';
  week[2]:='Вторник';
  week[1]:='Понедельник';
  write('введите длительность разговора в минутах ');
  readln(time);
  write('введите номер дня недели ');
  readln(day);
  writeln(' alphaeus is thinking...  ');
  case day of
    '1'..'5':
       begin
         writeln(week[day]);
         writeln('Сумма без скидки - ', 2.3*time);
         writeln('Сумма скидкой - ', 0.8*2.3*time);
         writeln('Скидка не предоставляется');
       end;
    '6','7':
       begin
         writeln(week[day]);
         writeln('Сумма без скидки - ', 2.3*time);
         writeln('Сумма скидкой - ', 0.8*2.3*time);
         writeln('Вам предоставлена скидка!');
       end;
    else writeln('вы ввели неправильный номер дня недели')
  end;
  writeln'');
end.

program raf105;

var

 s: string;

 i1,i2,i3,i4,i5,o,x: integer;

 domok_komod: boolean;

begin

s:= '';

for  i1:=1 to 4 do

 for  i2:=1 to 4 do

   for  i3:=1 to 4 do

     for  i4:=1 to 4 do

       for  i5:=1 to 4 do

       begin

         case i1 of

           1: s[1]:= 'Д';

           2: s[1]:= 'К';

           3: s[1]:= 'М';

           4: s[1]:= 'О';

         end;

         case i2 of

           1: s[2]:= 'Д';

           2: s[2]:= 'К';

           3: s[2]:= 'М';

           4: s[2]:= 'О';

         end;

         case i3 of

           1: s[3]:= 'Д';

           2: s[3]:= 'К';

           3: s[3]:= 'М';

           4: s[3]:= 'О';

         end;

         case i4 of

           1: s[4]:= 'Д';

           2: s[4]:= 'К';

           3: s[4]:= 'М';

           4: s[4]:= 'О';

         end;

         case i5 of

           1: s[5]:= 'Д';

           2: s[5]:= 'К';

           3: s[5]:= 'М';

           4: s[5]:= 'О';

         end;

         if s = 'ДОМОК'

           then domok_komod:= true;

         if s = 'КОМОК' //Это не опечатка. Так и должно быть

           then domok_komod:= false;

         if domok_komod

           then o+= 1;

         x+=1;

       end;

writeln('Слов между ДОМОК и КОМОД (включительно): ',o);

writeln('Всего возможных комбинаций: ',x);

end.