Составить программу для перевода данного натурального числа в р-ичной системе счисления (2<=p<=9) - Pascal(Паскаль)

uses crt;
const zn:string[9]='012345678';
function Convert(chis:integer;osn:byte):string;
var res:string;
begin
res:='';
repeat
 res:=zn[(chis mod osn)+1]+res;
 chis:=chis div osn;
until chis=0;
Convert:=res;
end;
var n:integer;
    rs:string;
    os:byte;
begin
clrscr;
write('Число=');
readln(n);
repeat
write('Основание=');
readln(os);
until os in [2..9];
writeln('Число ',n,' в системе ',os,' = ',Convert(n,os));
readln
end.