Товарищи Программеры помогите плиз. Строки

[6AZblJlb]

Дана строка нужно найти все входщяе в нее подстроки..... строка состоит только из '0' и '1' например 101 это 1,0,10,101 или
1101 тогда 1,10,11,101,110,1101

[6AZblJlb]

блин ну помогите пожалуйста никак не моуг придумать даже алгоритма....

[6AZblJlb]

короче пока вы там....вот я сам придумал

l:=1;
    for o:=length(a) downto 1 do
 for j:=length(a) downto 1 do
 begin
    stro[l]:=copy(a,o,j-o+1);
   inc(l);
   end;

[lexus_ilia]

короче пока вы там

А вы думаете что нам это очень надо?Если да, то вы немного ошибаетесь, ведь нам главное не написать за вас программу, а подсказать вам в решении или ,ещё лучше, посмотреть на ваш код и сказать что у вас не так...

[6AZblJlb]

ясненько..просто я видел что у других и тех кто после меня вешал темы хоть что нить писали а у меня ничего..... буду знать и иногда заходить мот тож че нить помогать