задача с матрицей, СПАСИТЕ ДЕВУШКУ!!! Опции

[July]

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

[Lapp]

Немного опоздал, но раз уж потратил свои кровные пять минут на написание, все же выкладываю плоды труда..
Этот фрагмент делает все, что нужно, при этом без посторонних функций. Может, это будет полезно..

m:=1;   {максимальная длина}
k:=1;   {номер строки с максимально длиной последовательности}
for j:=1 to 10 do begin
  n:=1;
  for i:=2 to 10 do if a[i,j]=a[i-1,j] then begin
    Inc(n);
    if n>m then begin
      m:=n;
      k:=j
    end
  end
  else n:=1
end;

Фрагмент не проверял в работе