Программа и процедура перевода из 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.