十进制转任何进制

Program ex1;
var a: array [1..100] of integer;
n,y,i,j,m:longint;

begin
write('input number y: ');
readln(y);
write('input number n: ');
readln(n);
write('(',y,')10=','(');
i:=0;
repeat
i:=i+1;
a[i]:=y mod n;
y:=y div n;
until y=0;
for j:=i downto 1 do
begin
if a[j]>=10 then
begin
write(chr(ord(a[j])+55));
end
else
write(a[j]);
end;
writeln(')',n);
readln
end.