алгоритмы поиска Опции

[*оля*]

если даны два списка чисел и нужно найти наибольшую одинаковую последовательность чисел, например, если дано:
1 2 3 4 5 6
1 2 6 2 3 4
то должен вывести 234
подскажите пожалуйста, каким алгоритмом тут лучше воспользоваться?

[volvo]

Ну, так и будет, если не ошибаюсь:

sum := 0;
repeat

  kmax : = { тут находишь kmax }
  if kmax > 10 then begin
    sum := sum + kmax;
    { Что там тебе еще надо было? Удалять подпоследовательности? Удаляем здесь }
  end;

until kmax <= 10; { Как только kmax станет меньше 11, цикл закончится }

А что, не работает? Или что-то неправильно делает?

[*оля*]

Ну, так и будет, если не ошибаюсь:

sum := 0;
repeat

  kmax : = { тут находишь kmax }
  if kmax > 10 then begin
    sum := sum + kmax;
    { Что там тебе еще надо было? Удалять подпоследовательности? Удаляем здесь }
  end;

until kmax <= 10; { Как только kmax станет меньше 11, цикл закончится }

А что, не работает? Или что-то неправильно делает?

ну вот без цикла делает все как надо, а как пишу цикл, то выдает ошибку:  Ошибка: попытка разыменовать нулевой указатель А почему выдает не понятно...