Перевод с любой СС в 10 СС исправить ошибку

var
  cs1,cs2,res1,res2,change,znak:integer;
  k,m,a,b:string;
  operation:char;
  decimal_res: longint;
{функция перевода Dec числа в любую сс}
function FromDec(n,r:longint):string;
var
  s:String;
const
  digit:string[16]='0123456789ABCDEF';
begin
  s:='';
  repeat
    s:=digit[(n mod r)+1]+s;
    n:=n div r;
  until n=0;
    FromDec:=s;
end;
{фунция перевода любой сс в Dec}
function ToDec(n:string;r:longint):longint;
var
  m,i:longint;
const
  digit:string[16]='0123456789ABCDEF';
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;
{осоновная программы}
begin
  writeln('Выберите из какой сс перевод:');
 
  writeln('1: из 2 сс');
  writeln('2: из 4 сс');
  writeln('3: из 5 сс');
  writeln('4: из 7 сс');
  writeln('5: из 8 сс');
  writeln('6: из 9 сс');
  writeln('7: из 10 сс');
  writeln('8: из 16 сс');
 
  write('ВАШ ВЫБОР: ');
  repeat
    readln(change);
  until
    (change>=1) and (change<=8);
  case change of
    1: cs1:=2;
    2: cs1:=4;
    3: cs1:=5;
    4: cs1:=7;
    5: cs1:=8;
    6: cs1:=9;
    7: cs1:=10;
    8: cs1:=16;
  end;
 
  writeln('Введите 2 числа для перевода с учетом выбранной вами сс:');
 
  readln(k);
  readln(m);
  res1:=ToDec(k,cs1);
  res2:=ToDec(m,cs1);
 
  writeln('Ввыберите в какую сс перевод:');
 
  writeln('1: в 2 сс');
  writeln('2: в 4 сс');
  writeln('3: в 5 сс');
  writeln('4: в 7 сс');
  writeln('5: в 8 сс');
  writeln('6: в 9 сс');
  writeln('7: в 10 сс');
  writeln('8: в 16 сс');
 
  write('ВАШ ВЫБОР: ');
  repeat
    readln(change);
  until
    (change>=1) and (change<=8);
 
  case change of
    1: cs2:=2;
    2: cs2:=4;
    3: cs2:=5;
    4: cs2:=7;
    5: cs2:=8;
    6: cs2:=9;
    7: cs2:=10;
    8: cs2:=16;
  end;
  a:=FromDec(Res1,cs2);
  b:=FromDec(Res2,cs2);
  
  
  
  
  write('Operation (+,-,*,/): ');
    readln(operation);
    if operation = '+' then
        decimal_res := a + b
    else
        if operation = '-' then
            decimal_res := a - b
        else
            if operation = '*' then
               decimal_res := a * b
            else
                if operation = '/' then
                    decimal_res := a div b
                else
                    writeln('Error operation');
    writeln(decimal_res);
                    
                    
  
  
end.