сравнение элементов двумерного массива с разной длиной

var 
a:array [1..5,1..5] of char;
b:array [1..3,1..2] of char;

For i:=1 to n1 do //до кол-ва строк матрицы A
 For j:=1 to m1 do //до кол-ва столбцов матрицы A
  For r:=1 to n2 do //до кол-ва строк матрицы B
   For t:=1 to m2 do //до кол-ва стобцов матрицы B
    if A[i,j]=B[r,t] then //что то делаем...

  For r:=1 to n2 do //до кол-ва строк матрицы B
   For t:=1 to m2 do //до кол-ва стобцов матрицы B
    For i:=1 to n1 do //до кол-ва строк матрицы A
     For j:=1 to m1 do //до кол-ва столбцов матрицы A
      if A[i,j]=B[r,t] then  begin 
          i2:=i;j2:=j;
         write('i2,' ',j2,' ');

q:=0;
For r:=1 to n2 do //до кол-ва строк матрицы B
 For t:=1 to m2 do //до кол-ва стобцов матрицы B
  For i:=1 to n1 do //до кол-ва строк матрицы A
    For j:=1 to m1 do //до кол-ва столбцов матрицы A
     if A[i,j]=B[r,t] then  begin 
          inc(q,2);//увеличиваем q на 2
          C[q-1]:=i;//индекс i
          C[q]:=j;//индекс j
         write(i2,' ',j2,' ');
      End;