Какое условие необходимо для проверки равных элементов столбца двухмерного массива?

for j:=1 to n do
  for k:=j+1 to n do
    begin
      eq:=true;
      for i:=1 to n do
        if matr[i,j]<>matr[i,k] then
          begin eq:=false; break; end;
      if eq then WriteLn('Элементы столбца ',j,' равны элементам столбца ',k);
    end;

Program Lab2;
uses crt,dos;
var i,j,n,k:integer;
    m:array[1..100,1..100] of integer;
var eq:boolean;
begin
clrscr;
writeln ('Naiti nomera stolbcov, vse elementi kotorih ravni');
writeln ('Vvedite razmernost kvadratnoi matrici, ne bolee 100');
readln (n);
writeln ('Razmernost matrici',n,'x',n);
writeln ('Vvedite elementi matrici snachala stroki');
for i:=1 to n do
for j:=1 to n do
readln (m[i,j]);
for i:= 1 to n do
begin
for j:=1 to n do
write (m[i,j]:2,' ');
writeln;
end;
for j:=1 to n do
for k:=j+1 to n do
begin
eq:=true;
for i:=1 to n do
if m[i,j]<>m[i,k] then
   begin eq:=false; break; end;
   if eq then Writeln ('Elementi stolbca ',j,' ravni elementam stolbca ',k);
end;
readkey;
end.