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

program gsd;{nazva}
uses crt;{podklu4enije modulej}
var a:array[1..20,1..20] of integer;{opis masiva}
m,n,i,j,x,z,vid:integer;{m,n-rozmer masiva; i,j,x,z-s4et4iki;vid-vidpovid}
begin clrscr;{o4istka ekrana}
writeln('Vvedite rozmernost matrizi A');
write(' kilkist radkiv M->');
read(m);{s4ituem m}
write(' kilkist stovpziv N->');
read(n);{s4ituem n}
writeln('Vvdite elementi matrizi A');
for i:=1 to m do
 for j:=1 to n do
  begin
  write('A[',i,',',j,']=');
  read(a[i,j]);{vvod masiva}
  end;
vid:=0;{obnulaem vidpovid}
for i:=1 to m do
begin
z:=0;
 for j:=1 to n do
  for x:=j+1 to n do
  if (a[i,j]=a[i,x]) and (j<>x) then z:=z+1;{provirajem povtorenija}
 if z=0 then vid:=vid+1;{jesli jih nema to do vid dodajem 1}
 end;
if vid=0 then write('V danij matrize stopcov bez s odinakovumu elementami  net') {vivod rezultata}
 else write('V danij matrizi ',vid,' stopcov s odinakovumi elementami');
readln;{zaderzka ekrana}
readln;
end.

max:=0;imax:=1;{str. s max. kol}
vid:=0;
for i:=1 to m do
 begin
  z:=0;
  for j:=1 to n do
  for x:=j+1 to n do
  if (a[i,j]=a[i,x]) and (j<>x) then z:=z+1;{provirajem povtorenija}
  if z>0 then vid:=vid+1; 
  if z>max then
   begin
     max:=z;
    imax:=i;
    end;     
 end;
if vid=0 then writeln('V danij matrize stopcov bez s odinakovumu elementami  net') {vivod rezultata}
 else writeln('V danij matrizi ',vid,' stopcov s odinakovumi elementami');
 write('max kol v stolbce ',imax);
readln;{zaderzka ekrana}
readln;
end.