Надобно перевести число 137 из десятичной системы счисления в шестнадцатиричное.Растолкуйте

Что бы перевести десятичное число в шестнадцатеричную систему его нужно поочередно разделять на 16 до тех пор, пока не останется остаток, наименьший либо одинаковый 15. Число в шестнадцатеричной системе записывается как последовательность цифр заключительного результата дробленья и остатков от дробленья в оборотном порядке.

Пример:

возьмем число 7467

7467/16=466 и 11 в остатке

466/16=29 и 2 в остатке

29/16=1 и 13 в остатке

и того получаем числа: 1  13  2  11

1 - 1

13 - D

2 - 2

11 - B

7467(10) = 1D2B(16)

возьмем твое число 137

137/16=8 и 9 в остатке

и того получаем 137(10) = 89(16)

так же для перевода из десятичных в шестнадчатиричные  набросал программу на PascalABC

var

   n : integer;

   d : integer;

   s : string;

begin

   write('введите десятичное число: ');

   readln(n);

   repeat

       if n lt;= 15 then begin

           d := n

       end else begin

           d := n-(n div 16)*16;

       end;

       case d of

           10 : s += 'A';

           11 : s += 'B';

           12 : s += 'C';

           13 : s += 'D';

           14 : s += 'E';

           15 : s += 'F';

           else s += d.ToString;    

       end;      

       n := n div 16;

   until n lt; 1;

   s := reverseString(s);

   writeln(s);

end.