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

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k,p,imx,kmx,mx:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(5);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
imx:=0;
mx:=1;
for i:=1 to m do
 begin
  kmx:=1;
  for j:=1 to n do
   begin
    k:=1;
    for p:=1 to n do
    if(a[i,p]=a[i,j])and(p<>j) then k:=k+1;
    if k>kmx then kmx:=k;
   end;
  if kmx>mx then
   begin
    mx:=kmx;
    imx:=i;
   end;
 end;
if mx=1 then write('В строках нет одинаковых элементов')
else write('Номер последней строки с макс. кол. одинаковых=',imx,' max=',mx);
readln
end.

uses crt;
const nmax=20; //максимальный размер матрицы
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k,p,imx,kmx,mx:byte;
begin
clrscr;
randomize;
repeat  //ввод кол строк от 1 до 20
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat  //ввод кол столбцов от 1 до 20
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(5);//элементы матрицы от 0 до 4, чтобы были одинаковые
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
imx:=0; //пока строки одинаковыми нет
mx:=1;//максимально 1 одинаковый
for i:=1 to m do//проверяем все строки
 begin
  kmx:=1;//максимально в строке пока 1
  for j:=1 to n do //идем по строке
   begin
    k:=1;//1 элемент
    for p:=1 to n do //сравниваем со всеми элементами строки
    if(a[i,p]=a[i,j])and(p<>j) then k:=k+1;//если есть повтор, суммируем
    if k>kmx then kmx:=k;//если этот элемент чаще всех, то это макс. кол. в строке
   end;
  if kmx>mx then //если оно больше чем в других строках
   begin
    mx:=kmx; //это будет максимум
    imx:=i; //номер строки с максимумом
   end;
 end;
if mx=1 then write('В строках нет одинаковых элементов')
else write('Номер последней строки с макс. кол. одинаковых=',imx,' max=',mx);
readln
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k,p,imx,kmx,mx:integer;
    f:boolean;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(5);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
imx:=0;
mx:=0;
for i:=1 to m do
 begin
  k:=0; //сосчитаем сколько в строке неповторяющихся
  for j:=1 to n do
   begin
    f:=true;//примем что элемент не повторяется
    p:=1;//начнем сравнивать с первого
    while(p<=n)and f do
    if(a[i,p]=a[i,j])and(p<>j) then f:=false //если повторяется, меняем флаг и далбше не проверяем
    else p:=p+1;//иначе дальше
    if f then k:=k+1;//если не повторился, считаем
   end;
  if n-k>=mx then //остальные повторяются и если их болше чем до этого
   begin
    mx:=n-k;// это максимум
    imx:=i;//номер строки
   end;
 end;
if mx=0 then write('В строках нет одинаковых элементов')
else write('Номер последней строки с макс. кол. одинаковых=',imx,' max=',mx);
readln
end.