Создать программу для перевода из десятичной системы исчисления в восьмеричную - Pascal

Помогите пожалуйста создать программу для перевода из десятичной системы исчисления в восьмеричную (программа для 8 класса)

Листинг программы

var n,o,d : Integer;
begin
  Read(n);
  o:=0;d:=1;
  while n<>0 do
    begin
      o:=o+d*(n mod 8);n:=n div 8;d:=d*10;
    end;
  WriteLn(o);
end.

Объяснение кода листинга программы

Объявлены три переменные: n, o, d типа Integer.
Переменная n инициализируется значением, которое считывается из стандартного ввода.
Переменная o инициализируется значением 0, а переменная d инициализируется значением 1.
Запускается цикл while, который выполняется до тех пор, пока n не станет равным 0.
Внутри цикла происходит следующие действия: a. Переменная o увеличивается на d, умноженное на результат операции modulo 8 от n. b. Значение n делится на 8. c. Значение d увеличивается на 10 в степени количества раз, которое выполнился цикл.
После окончания цикла, результат выводится на стандартный вывод.