Перевод из одной системы счисления в другую

Uses crt;
 
const a:array[0..15] of char=('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
 
var uk, n, m, i, k: integer;
    rez:string;
    b:array[1..30]  of byte;
 
Begin clrscr;
write('Chislo = '); readln(n);
write('Osnovanie = '); readln(m);
uk:=0; rez:='';
while n>0 do
  begin
    inc(uk);
    b[uk]:=n mod m;
    n:=n div m;
  end;
 
writeln;
 
for i:=uk downto 1 do
  rez:=rez:+a[b[i]];
 
writeln('Rezultat perevoda = ', rez);
readkey
end.

Uses crt;
 
const a:array[0..15] of char=('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
 
var uk, n, m, i, k: integer;
rez:string;
b:array[1..30] of byte;
 
Begin clrscr;
write('Chislo = '); readln(n);
write('Osnovanie = '); readln(m);
uk:=0; rez:='';
while n>0 do
begin
inc(uk);
b[uk]:=n mod m;
n:=n div m;
end;
 
writeln;
 
for i:=uk downto 1 do
rez:=rez+a[b[i]];
 
writeln('Rezultat perevoda = ', rez);
readkey
end.

Uses CRT;
 
Const Hex:string='0123456789ABCDEF';
Var s:string;
    n,i:integer;
    Dec:real;
    
BEGIN
 
Write('Число: ');        Readln(s);
Write('С основанием: '); Readln(n);
Dec:=0;
 
For i:=1 to Length(s) do 
 Dec:=Dec+(pos(s[i],Hex)-1)*power(n,Length(s)-i);
 
Writeln('Переведено в: ',Dec);
Writeln('С основанием: 10');
 
END.