поиск символьных последовательностей Опции

[c-chopper]

:low:
Найти наиболее длинную последовательность символов, которая встречается в данном текстовом файле (без переводов строк, размер не более 10 килобайт) более одного раза.

единственное, что приходит в голову(пока, по крайней мере) это тупой перебор комбинаций символов. но это неправильно.
прошу помощи :molitva:

[Altair]

Предлагаю такой способ.
Сначала выделяем вообще все подпоследовательности символов (последовательностть символов это более или 2 идущих подряд одинаковых симв), а затем имею все подпоследовательнотсти ищем ту, что нужно.

а вот тебе пример как разбить на подпоследовательности:
(процедура выделяет подпоследовательности)

 var s:string;
procedure getposl(s:string);
var i:byte; ss:string; b:boolean;
begin
 ss:=''; b:=false;
 for i:=1 to length(s) do
 begin
  if b then begin ss:=ss+s[i] end; {next}
  if (s[i]=s[i+1]) and (b=false) then begin ss:=ss+s[i]; b:=true; end; {new}
  if ((NOT((s[i]=s[i+1])))or (i=length(s))) and (b=true) then begin
   if ss<>'' then {*****}writeln(ss);{*****} ss:='';b:=false end;
 end
end;

begin
 readln(s);
 getposl(s)
end.

то есть что бы сохранить последовательности надо вместо
{*****}writeln(ss);{*****} описать процедуру сохранения где-то (все равно где - список, массив) слова ss...