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

Var  n: integer;
function oct(x: integer): string;
var  s: string;
begin
while 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.