Привет всем пож-та с задачей. Найти и распечатать строку заданной целочисленной матрицы размером 10х10, в которой длина максимальной серии мин

привет всем)помогите пож-та с задачей. Найти и распечатать строку заданной целочисленной матрицы размером 10х10, в которой длина максимальной серии минимальна. (Серия-последовательность одинаковых элементов. Длина серии-количество одинаковых элементов) .(паскаль) очень очень нужно))) заранее спасибо))

       i, j, minlen, ind, count, countrow: ineteger;

       minlen:=11;

          count:=1;

       A:array[10, 10] of integer;

       

                end;

                if (A[i,j]=A[i,j-1]) then

          for j:=2 to 10 do

                   if (count>countrow) then 

       for i:=1 to 10 do

             ind:=i;

          end;

     

       begin

                   count:=1;

          begin

          countrow:=1;

    end.

       for i:=1 to 10 do

    begin

  • var 

                begin

             readln(A[i,j]);

             minlen:=countrow;

       end;

                else

          if (countrow<minlen) then

       ind:=1;

                   inc(count)

          end;

          for j:=1 to 10 do

                      countrow:=count;

       for j:=1 to 10 do

          writeln(A[ind,j])

          begin