Паскаль. Проблема с функцией.

[malinoff]

Всем доброго времени суток. По заданию необходимо написать функцию, отслеживающую похожие столбцы матрицы и выводящую на экран количество непохожих столбцов-столбцы считаются похожими, если количество чисел и сами числа совпадают. Делать проверку на повторение не надо. Написал функцию, в статике считает правильно, в динамике работает только на непохожих матрицах, если все столбцы похожи-выдает результатом 2.

type
 TElem = real;
 TDTable = ^TTable;
 TTable = array[0..0] of TElem;
 TDMatrix = ^TMatrix;
 TMatrix = array[0..0] of TDTable;
var
 a : TDMatrix;

function same(var a1 : TDMatrix; N1, N2 : integer; var size1:integer):boolean;
var
 i,j,N:integer;
begin
N:=0;
same:=false;
 for i:=0 to size1 - 1 do begin
  for j:=0 to size1 - 1 do begin
   if a1^[i]^[N1] = a1^[j]^[N2] then begin
    N:=N+1;
    break;
   end;
  end;
 end;
 if N = size1 then
 same:=true;
end;

function CountSame(var a1:TDMatrix; var size1, size2:integer): integer;
var
 q,w,Res:integer;
begin
 Res:=0;
 for q:=1 to size2-1 do begin
  for w:=q+1 to size2 do begin
   if same(a1,q,w,size2)=true then
   break;
   if w=size2 then
   Res:=Res+1;
  end;
 end;
 for q:=1 to size2-1 do begin
  if same(a1,q,size2,size2) then
  break;
  if q = size2-1 then
  Res:=Res+1;
 end;
 CountSame:=Res;
end;

Пожалуйста, подскажите, в чем ошибка?

[malinoff]

Ошибку нашел, тему можно закрывать.