Найти номер первого из столбцов матрицы, содержащих минимальное количество одинаковых элементов

var
  Form1: TForm1;
  a: array[1..20,1..20] of integer;
  m,n: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблицы
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth;
  options:=options+[goEditing,goTabs]
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
//проверим ввод размеров
val(Edit1.Text,m,i);
if (i<>0)or not(m in [1..20])then
 begin
  ShowMessage('Неверно введено количество строк');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
val(Edit2.Text,n,i);
if (i<>0)or not(n in [1..20])then
 begin
  ShowMessage('Неверно введено количество столбцов');
  Edit2.Clear;
  Edit1.SetFocus;
  exit
 end;
StringGrid1.RowCount:=m;
StringGrid1.ColCount:=n;
for i:=1 to m do
for j:=1 to n do
 begin
  a[i,j]:=random(10);
  StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k,p,mn,jmn:integer;
begin
mn:=m;
jmn:=1;
for j:=2 to n do
 begin
  k:=0;
  for i:=1 to m do
  for p:=1 to m do
  if(a[i,j]=a[p,j])and(i<>p) then k:=k+1;
  if k<mn then
   begin
    mn:=k;
    jmn:=j
   end
 end;
Edit3.Text:='Первый столбец с минимальным числом повторяющихся элементов='
             +IntToStr(jmn)+' k='+IntToStr(mn);
end;