Pascalda Sayıyı İstenilen Tabana Çevirme, Pascalda Sayı Tabanı

program onluk_taban;
uses crt;
var
a,b,c:Longint;
x, y:string;
begin
clrscr;
repeat
write('sayı='); readln(b);
write('taban='); readln(c);
repeat
a:= b mod c;
str(a,x);
y:= x+ y;
b:=b div c
until b
str(b, x);
y:= x + y;
writeln(y);
until c<> 0;
readln;
end.