Программа и процедура перевода из 10 сс в 8 сс на Паскале.
Заранее большой спасибо.

var  n: integer;function oct(x: integer): string;var  s: string;beginwhile x > 0 do     begin     s := IntToStr(x mod 8) + s;     x := x div 8;     end;Result := s;end;begin  write('Введите число: ');  readln(n);  writeln('Восьмиричная форма: ', oct(n))end.