Определить номер строки, имеющей наибольшую характеристику

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of char;
    c,cmx,cmx1:char;
    m,n,i,j,k,p,imx,mx,mx1: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('Введите построчно символы в матрицу:');
writeln('Матрица:');
for i:=1 to m do
for j:=1 to n do
 begin
  c:=readkey;
  write(c);
  a[i,j]:=c;
  if j=n then writeln;
 end;
mx:=0;imx:=0;
for i:=1 to m do
 begin
  mx1:=0;
  j:=2;
  while j<=n do
  if a[i,j]=a[i,j-1] then
   begin
    p:=j;k:=1;c:=a[i,j];
    while (a[i,p]=a[i,p-1])and(p<=n) do
     begin
      p:=p+1;
      k:=k+1;
     end;
    if k>mx1 then
     begin
      mx1:=k;
      cmx1:=c;
     end;
    j:=j+k;
   end
  else j:=j+1;
  if mx1>mx then
   begin
    mx:=mx1;
    imx:=i;
    cmx:=cmx1;
   end;
 end;
if mx=0 then write('Серий одинаковых символов в строках нет')
else write('Наибольшая серия одинаковых символов в строке ',imx,'=',mx,' символ ',cmx);
readln
end.