Написать программу перевода числа из шестнадцатеричной системы счисления в восьмеричную

Uses Crt;
Const Digits : Array[0..15] of Char =('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
Var hexWord : Word;
    Base, r : Word;
    stDigits: String;
Begin
  ClrScr;
  hexWord:=$8FC7;
  {или то же самое}
  hexWord:=36807;
  stDigits:='';
  Base:=$F; {Старшая цифра шестнадцатеричного представления}
  Repeat
    r:=hexWord AND Base; {Выделяем шестнадцатеричные цифры}
    stDigits:=Digits[r]+stDigits;
    hexWord:=hexWord SHR 4; {2^4=16, т.е. делим на десятичное 16}
  Until hexWord=0;
  WriteLn('Шестнадцатеричное число: ',stDigits);
  WriteLn;
{А теперь восьмеричное}
  hexWord:=$8FC7;
  stDigits:='';
  Base:=$7; {Старшая цифра восьмеричного представления}
  Repeat
    r:=hexWord AND Base; {Каждый раз будет получаться восьмеричная цифра все более старшего разряда}
    stDigits:=Digits[r]+stDigits;
    hexWord:=hexWord SHR 3; { 2^3=8, т.е. делим на десятичное 8}
  Until hexWord=0;
  WriteLn('Восьмеричное представление: ',stDigits);
  ReadLn;
End.