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

[*оля*]

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

[*оля*]

попробовала написать программу для 2х массивов, которая выдаст длину наибольшей общей последовательности, но что-то не совсем получилось

 
var
a: array [1..10] of integer;
a1: array [1..10] of integer;
k,i,j,i1,j1,kmax: integer;

begin
for i:=1 to 10 do
read(a[i]);
for j:=1 to 10 do
read(a1[j]);
i:=1;
while i<= 10 do begin
  for j:= 1 to 10 do begin
  if a[i]=a1[j] then begin
         i1:=i;
         j1:=j;
         while a[i1]=a1[j1] do begin
         k:=k+1;
         i1:=i1+1;
         j1:=j1+1;
         end;
         if k>kmax then kmax:=k;
         k:=0;
         end;
         end;
  i:=i+1;
  end;
writeln(kmax);
end.

 

.

не подскажете где ошибка? или это вообще неудачная идея так решать данную задачу?

Сообщение отредактировано: *оля* - 17.05.2010 1:02