пожалуйста, выдает ошибку "Индекс находился вне границ массива",программа для перевода числа из разных систем в десятичную!

program Sabc;
 
var
  SU, B, S, Ax1, A1, i, j, k, d, y, p, q: integer;
  
  A: string;
  
  SW: array of string := ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z');
 
label M, M2, M1, M3, MET;
 
begin;
 
  Writeln('Система входной строки  ');
  readln(A1);
  Writeln('Входная строка ');
  readln(A);
  k := Length(A);
  j := k;i := 0;B := 0;
  M: j := j - 1;
  i := i + 1;
  p := 0;
  MET: p := p + 1;
  if SW[p] = A[i] then;
  goto MET;
  d := p;
  y := 0;
  Ax1 := A1;
  if j > 1 then
  begin
    M1: S := A1 * Ax1;
    Ax1 := S;
    y := y + 1;
        //writeln(S);
    if y + 1 < j then
      goto M1;
  end;
  case j of
    1: S := A1;
    0: S := 1;
  end;
  SU := d * S;
  B := B + SU;
  if i < K then
    goto M;
  writeln(B);
  
end.

const
  main: string = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
 
 
type
  MyStr = string;
 
var
  ss: integer;
  s: MyStr;
  i: integer;
  res: integer;
 
function IsCorrect(_s: MyStr; _ss: integer): boolean;
var
  i: integer;
begin
  IsCorrect := true;
  _s := UpperCase(_s);
  for i := 1 to Length(_s) do
    if (Pos(_s[i], main) = 0) or (Pos(_s[i], main) > _ss) then
    begin
      IsCorrect := false;
      exit
    end;
end;
 
begin
  Writeln('Введите систему счисления: ');
  Readln(ss);
  Writeln('Входная строка:');
  Readln(s);
  if IsCorrect(s, ss) then
  begin
    s := UpperCase(s);
    for i := Length(s) downto 1 do
      res := res + (Pos(s[i], main) - 1) * Round(Power(ss, Abs(i - Length(s))));
    Writeln(res);
  end
  else
    Writeln('Некорректный ввод');
end.