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

var
  n, k: integer;
  r: integer;
  a, b: string;
begin
a:='';
write(Введите число);
read(n);
write(Введите новое основание);
read(k);
if (k<2) or (k>36) then
writeln('Допустимые значения - от 2 до 36');
while n>0 do begin
r:=n mod k;
n:=n div k;
if r<10 then
b:=r
else
b:=chr(ord('A')-10+r);
a:=b+a;
end;
writeln(a);
end;

var
  n, k: integer;
  r: integer;
  a, b: string;
 
begin
  a := '';
  write('Введите число: ');
  read(n);
  write('Введите новое основание: ');
  read(k);
  if (k < 2) or (k > 36) then
    writeln('Допустимые значения - от 2 до 36');
  while n > 0 do 
  begin
    r := n mod k;
    n := n div k;
    if r < 10 then
      b := IntToStr(r) //<---
    else
      b := chr(ord('A') - 10 + r);
    a := b + a;
  end;
  writeln(a);
end.

uses crt;
const digit:string[9]='012345678';
var  mn:set of char;
//перевод числа из СС 2-9 в СС 10
function ToDec(n:string;r:byte):integer;
var m,i:integer;
begin
m:=0;
while n[1]='0' do
delete(n,1,1);
for i:=1 to length(n) do
m:=m*r+pos(n[i],digit)-1;
ToDec:=m;
end;
procedure Vvod(var s:string;cc:byte);
var i,k:byte;
begin
repeat
readln(s);
k:=0;
for i:=1 to length(s) do
if not (s[i] in mn) then k:=1;
if k=1 then writeln('Число введено неверно, повторите ввод.');
until k=0;
end;
var p,q:string;
    cc,p1,q1,i:integer;
begin
repeat
writeln('Введите из какой CC от 2 до 9:');
readln(cc);
until cc in [2..9];
mn:=[];
for i:=1 to cc do
mn:=mn+[digit[i]];
writeln('Введите числитель дроби в соответствии с CC:');
vvod(p,cc);
writeln('Введите знаменатель дроби в соответствии с CC:');
vvod(q,cc);
p1:=ToDec(p,cc);
q1:=ToDec(q,cc);
writeln('Перевод дроби из СС ',cc,' в СС 10');
write(p,'/',q,'=',p1,'/',q1)
end.