перевести в паскале число из десятичной в восьмеричную

var ch, mo, di: longint; otvet, s: string;begin readln(ch); otvet := ''; while ch <> 0 do begin di := ch div 8; mo := ch mod 8; str(mo, s); otvet := s + otvet; ch := di; end; writeln(otvet);end.