N - количество строк 
s[i] - строки (i=0..N-1)
S - ответ

p[i] - какую строку брать i-й
l[i] - как далеко ее левый конец уходит в нашу строку
(i=0..N-1)
l[0] = 0;
l[i] < length(s[p[i-1]])  - из-за 1.         (*)

L[i][j] = lenght(s[j]) - l[j], если до нее шла строка i

T>>p[i] - какую строку брать i-й
T>>l[i] - как далеко ее левый конец уходит в нашу строку
T>>(i=0..N-1)
T>>l[0] = 0;
T>>l[i] < length(s[p[i-1]])  - из-за 1.         (*)
T>>

cabab - 0
ababd - 1
ababab - 2

p = 0,1,2
l = 0,0,0
S = cababababdababab

p = 0,1,2
l = 0,2,0
S = cabababdababab

p = 0,1,2
l = 0,4,0
S = cababdababab

p = 0,2,1
l = 0,0,0
S = cabababababababd

p = 0,2,1
l = 0,2,2
S = cabababababd

p = 0,2,1
l = 0,4,4
S = cabababd

uses crt;

var
 str: array [1..10] of string;
 icnt,i,j,k: integer;

 mystr: string;
 noadd:boolean;

 tmpstr:string;
 tmpc:integer;
 max, maxn, num:integer;

begin
{ abc xyz abcx bcxyz cx z fgh yzfgh }

  str[1]:='abcd';
  str[2]:='xyz';
  str[3]:='abcx';
  str[4]:='bcxyz';
  str[5]:='cx';
  str[6]:='z';
  str[7]:='fgh';
  str[8]:='yzfgh';
  icnt:=8;

  for i:=1 to icnt do
   for j:=1 to length(str[i]) do
    begin
     noadd := false;
     for k:=1 to length(mystr) do
      if mystr[k] = str[i][j] then noadd:=true;
     if (not noadd) then mystr:=mystr+str[i][j];
    end;
writeln('mystr is : ', mystr);
write('the result is : ');

 repeat
    max := -1;
    for i:=1 to icnt do
    begin
     tmpstr:=mystr;
     tmpc:=0;
     for j:=1 to length(str[i]) do
       for k:=1 to length(tmpstr) do
        if (tmpstr[k] = str[i][j]) then
         begin
          delete(tmpstr,k,1);
          inc(tmpc);
         end;
     if max < tmpc then
        begin
          max:= tmpc;
          maxn:= i;
        end;
      end;


 {udalyayem}
  for i:=1 to length(str[maxn]) do
   for j:= 1 to length(mystr) do
    if (mystr[j] = str[maxn][i]) then delete(mystr, j, 1);
  write(str[maxn],'+');
 until length(mystr) = 0;

 writeln;

end.