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

uses crt;
const zn:string[9]='012345678';
var n,b:integer;
    s:string;
begin
clrscr;
write('Число в СС 10  n=');
readln(n);
repeat
write('Перевести в СС b=');
readln(b);
until b in [2..9];
s:='';
while n>0 do
 begin
  s:=zn[n mod b+1]+s;
  n:=n div b;
 end;
write('в системе ',b,'     =',s);
readln
end.