Chuyển cơ số siêu hạng

Mod có bài toán cho các bạn đây
hãy viết chương trình chuyển đổi một số thuộc cơ số bất kỳ ra một hệ bất kỳ
chương trình càng ngắn càng tốt
các bạn viết đi tôi sẽ góp ý

Program Chuyen_Co_So_Sieu_Hang;
uses crt;
Var he,he1,i,j:byte;
n,code:integer;
s,s3:string;
Function he10(x:string):integer;
Var d,luythua:integer;
s1:string[1];
so,i:byte;
Begin
luythua:=1;
i:=length(x);
s1:=copy(x,i,1);
val(s1,so,code);
If code=0 then
d:=so
else d:=ord(x[i])-55;
dec(i);
While i<>0 do
Begin
luythua:=luythua*he;
s1:=copy(x,i,1);
val(s1,so,code);
If code=0 then
d:=d+so*luythua
else d:=d+((ord(s[i])-55)*luythua);
dec(i);
End;
he10:=d;
End;
Procedure chuyen_he(n:integer);
Var s2:string[1];
Begin
j:=0;
repeat
If n mod he1 < 10 then
Begin
inc(j);
str((n mod he1),s2);
s3[j]:=s2[1];
End
else
Begin
inc(j);
s3[j]:=chr((n mod he1) + 55);
end;
n:=n div he1;
until n=0;
End;
Begin
clrscr;
Write('He so ban muon nhap: ');readln(he);
Write('Nhap so: ');readln(s);
Write('He ban muon doi: ');readln(he1);
n:=he10(s);
chuyen_he(n);
for i:=j downto 1 do write(s3[i]);
readln;
End.
Xin mời bình lựng

Hay nhung con dai qua , con co the rut ngan nua duoc do

Rút ngắn ở chỗ nào gợi ý chút đi.