Сравнение матриц

[xakkkkker]

Доброе время суток. Такой вот вопросик возник.
Есть две матрицы с размерами 8 строк 4 столбца.

0011 0111
0110 1011
1010 1101
0000 1110
0000 0000
0000 0000
0000 0000
0000 0000

надо каждую строку первой матрицы поочередно сравнивать с каждой строкой второй матрицы. И если в сравниваемых строках есть только 1 отличие то это строку записать в третью матрицу заменив это отличие на цифру 3.

Вот я написал процедуру. Но че то не првильно она выводит

Const Length_8=8;
Length_4=4;
type
Matrica=array[1..Length_8,1..Length_4] of integer;
Matrica2=array[1..20,1..Length_4] of integer;

Procedure Skleivanie_Second_Stage(X,Y:Matrica; Sc:integer; var Z:Matrica2; var Sc2:integer);
   var
    i,j,k,l,ad:integer;
   begin
     k:=0;
    For l:=1 to Length_8 do
     For i:=1 to Length_8 do
          begin
           For j:=1 to Length_4 do
            if X[l,j]<>Y[i,j] then
                 begin
              inc(k);
                  ad:=j;
                 end;
                if k=1 then
                 begin
                  For j:=1 to Length_4 do
                   Z[Sc,j]:=X[i,j];
                  Z[Sc,ad]:=3;
                  inc(Sc);
                 end;
                k:=0;
                ad:=0;
           end;
          Sc2:=Sc;
   end;

Sc- это счетчик для записи в третью матрицу.