Не работает часть кода

program Nervnyaya_Kletka;
var 
  A, B, I, D, F, K, G, X, Z: longint;
  S1, C: string;
 
 
begin
  write('Из какой ');
  readln(A);
  write('В какую ');
  readln(B);
  write('Какое число пеевести?'); write(' Число размером: '); readln(C);
  S1:='0123456789ABCDEF';
  F:=0;
  X:=length(C);
  if (A<>10) then 
    for I:=1 to length(C) do
      begin
        X:=X-1;
        K:=F;
          if X=1 then
            Z:=A
          else
            Z:=1;
            for G:=1 to X do              
                Z:=Z*A;
        F:=pos(S1, C[I])*Z;
        F:=F+K;
      end;
  write(F);
end.

write('Из какой ');
  readln(A);
  write('В какую ');
  readln(B);

r:=0;//будет число в СС 10
for i:=1 to Length(s) do
 begin
  if upcase(s[i]) in ['A'..'F'] then d:=Ord(upcase(s[i]))-55//если буква ['A'..'F'] , то будет число [10..15]
  else d:=Ord(s[i])-48;//если цифра, то [0..9]
  r:=r*ss+d;//умножаем ранее вычисленное на основание СС и прибавляем то что получили
 end;

const digit:string[16]='0123456789ABCDEF';
var cs,k,i:byte;
    st:string;
    m:integer;
begin
repeat
writeln('Введите из какой сс от 2 до 16');
readln(cs);
until cs in [2..16];
repeat
writeln('Введите число в соответствии с сс');
readln(st);
k:=0;
i:=1;
while(i<=length(st))and(k=0) do
if pos(st[i],copy(digit,1,cs))=0 then k:=1
else inc(i);
if k=1 then write('Число введено неверно, повторите')
until k=0;
m:=0;
for i:=1 to length(st) do
m:=m*cs+pos(st[i],digit)-1;
writeln('Число в СС 10=',m);
end.