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

program jgcd;
 
function update(x:longint;R:word):string;
var i,ost:longint;
    s,st,chislo:string;
begin
     repeat
           ost:=x mod R;
           x:=x div R;
           if ost>9 then st:=chr(ord('A')-10+ost)
           else str(ost,st);
           s:=s+st;
     until x=0;
     for i:=1 to length(s) do
     chislo:=chislo+s[length(s)-i+1];
 
update:=chislo;
end;
 
{-----------------}
var n:integer;
begin
write('Cislo v 10 sisteme: '); readln(n);
 
writeln('Cislo v 8 sisteme: ',update(n,8));
 
readln;
end.