Двумерный массив - найти одинаковые элементы с столбце

var
  n,m:Integer;
begin
  n:=StrToInt(edt1.Text);
  m:=StrToInt(edt2.Text);
  ...
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  i,j,k,n,m:Integer;
  A:array of array of Real;
begin
  n:=StrToInt(edt1.Text);
  m:=StrToInt(edt2.Text);
 
  SetLength(A,n,m);
 
  Randomize; //генератор случайных чисел
  for i:=0 to n-1 do
    for j:=0 to m-1 do
      A[i,j]:=Random(10);// заполняет массив случайными числами от 0 до 9
 
  for j:=0 to m-1 do
    for i:=0 to n-1 do
      for k:=0 to n-1 do
        if (A[i,j]=A[k,j]) and (i<>k) then
        begin
          ShowMessage('Есть столбец с одинаковыми элементами.');
          Exit;
        end;
end;

a:array[1..100,1..100] of integer; //из целых чисел

a:array[1..m,1..n] of string;//из строковых выражений

for j:=0 to m-1 do
  for i:=1 to n-1 do     //элементы с 1-го до последнего
    for k:=0 to i-1 do   //элементы с 0-го до предшествующего i
      if (A[i,j]=A[k,j]) do