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

[July]

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

[volvo]

Чтобы велосипед заново не строить, воспользовался готовой функцией get_chain, которую можно взять здесь:
http://volvo71.narod.ru/faq_folder/matrices.htm#arr_max

Тогда решение выглядит вот так:

const n = 10;
type
  vector = array[1 .. n] of integer;
  matrix = array[1 .. n] of vector;

{ Для теста - как константа, можно описать переменной и вводить значения самостоятельно }
const
  a: matrix = (
     (1, 2, 2, 3, 4, 5, 5, 5, 26, 6),
     (1, 2, 2, 3, 4, 8, 5, 5, 26, 6),
     (1, 2, 2, 3, 4, 5, 7, 5, 26, 6),
     (1, 2, 2, 3, 4, 5, 5, 5, 26, 6),
     (1, 2, 2, 3, 4, 5, 5, 5, 26, 6),
     (1, 2, 2, 3, 4, 5, 5, 5, 26, 6),
     (1, 2, 2, 3, 5, 5, 5, 5, 26, 6),
     (1, 2, 2, 3, 4, 5, 5, 5, 26, 6),
     (1, 2, 2, 3, 4, 5, 6, 5, 26, 6),
     (1, 2, 2, 3, 4, 5, 5, 5, 26, 6)
  );

{ ...  Здесь должна быть вставлена функция get_chain ... }

var
  _max, max_value: integer;
  i, ix: integer;
begin
  max_value := 0; ix := 0;
  for i := 1 to n do begin
    get_chain(a[i], n, _max);
    if _max > max_value then begin
      max_value := _max; ix := i;
    end;
  end;

  writeln('Строка №', ix, ' : ', max_value, ' одинаковых элементов ...');
end.