привет всем)помогите пож-та...

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

 

var 
   i, j, minlen, ind, count, countrow: ineteger;
   A:array[10, 10] of integer;
   
 
begin
   for i:=1 to 10 do
      for j:=1 to 10 do
         readln(A[i,j]);
   ind:=1;
   minlen:=11;
   for i:=1 to 10 do
   begin
      count:=1;
      countrow:=1;
      for j:=2 to 10 do
      begin
            if (A[i,j]=A[i,j-1]) then
               inc(count)
            else
            begin
               if (count>countrow) then 
                  countrow:=count;
               count:=1;
            end;
      end;
      if (countrow<minlen) then
      begin
         minlen:=countrow;
         ind:=i;
      end;
   end;
   for j:=1 to 10 do
      writeln(A[ind,j])
end.