Программа перевода из одной система в другую

Uses Math,crt;
var
Mass:array[1..10000] of integer;
A,b,c,d,e,A1,B1,c1,e1,g,f:real;
i,invert,result,SummaDlin:integer;
 
begin
writeLn('введите основание вводимой системы счисления');Readln(g);
writeLn('введите основание выводимой системы счисления');Readln(f);
 
if g>f then do
A:=int(g);
d:=frac(f);
For I:=1 to length(A) do
Begin
c:=A mod f;
e:=A div f;
Mass[i]:=c;
A:=e
end;
For I:=length(A) to Length(d) do
begin
с1:=d mod f;
e1:=d div f;
Mass[k]:=c1;
A1:=e1;
end;
 
 
SummaDlin:=lenght(g)+Lenght(d);
 
For k:=1 to SummaDlin Div 2 do Begin
Invert:=f[k];
Mass[k]:=Mass[SummaDlin-k+1];
result:=Mass[SummaDlin-k+1];
else begin
A:=int(g);
d:=frac(f);
For i:=length(A) downto l do
Begin
с:=power(f,I);
b:=Mass[i]*c;
end;
For K:=lenght(d) to lenght(a);
c1:=power(d,I);
e1:=Mass[k]*c1;
For k:=1 to SummaDlin Div 2 do Begin
Invert:=f[k];
Mass[k]:=Mass[SummaDlin-k+1];
result:=Mass[SummaDlin-k+1];
end;
 
 
end;

var g,f:integer;

if g>f then do
A:=int(g);
d:=frac(f);

var x,f:real;
     c:integer;
.......................
c:=trunc(x);//целая часть
f:=frac(x);//дробная часть

uses
  crt;
var
  cs1,cs2,res,change:integer;
  TD:string;
{функция перевода 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
  clrscr;
  writeln('Введите из какой сс');
  readln(cs1);
  writeln('Введите число в соответствии с сс');
  readln(TD);
  writeln('Введите в какую сс');
  readln(cs2);
  writeln(FromDec(ToDec(TD,cs1),cs2));
readln
end.