Нормальный алгоритм Маркова(Java)

[Siel]

Приветствую всех,интересует заготовочка реализации НАМ для языка Java в среде NetBeans
интересует простая заготовка работающая со строковыми переменными,никакого изврата с вводом строковой переменной с клавиатуры не нужно в принципе,ну и сами подстановки тоже заранее будут прописаны,буду благодарен за кусочек кода,заранее благодарю

[Bugrimov]

Наработки имеются????
Посмотрим......

[Siel]

Только логические,на джаву сел недавно и на старых языках не пробовал делать
в теории допустим есть у нас строка 1010101010110111 ну и в таком духе
задаём массивом
пишем цикл с условием для i-того элемента массива если он соответствует переменной Х1(первая подстановка)=10(для примера) то мы заменяем этот элемент(как правильно прописать кол-во элементов в подставноке не додумался пока,их может быть и 3 и 4 если понадобится...)+нужно остановить цикл после замены первого элемента массива и отправить на последующую проверку условия первой подстановки после перезаписи массива,если после всех прокруток первой подстановки таким макаром и всех перезаписей,условия первой подстановки не выполняются нужно вывалится и уйти во второй цикл с второй подстановкой(кол-во подстановок задавать будем вручную)
в общем проблема как грамотно оформить кол-во символов в подстановке что б было красиво,как грамотно прописать замену элементов из подстановки и как остановить цикл после того как будет проведена первая подстановка первого элемента,ну перезапись после подстановки тут вроде понятно,через другой объявленный массив можно реализовать и дальше просто переприсваивать значения

[Siel]

В общем сегодня добрался до старенького паскаля

Program NAM_01;
Uses WinCRT;
Var 	InputS, OutputS:string;
        Rep_1,Rep_2:string;
        i,j,k,n,m,mn:integer;
Begin
Writeln('Введите строку: ');
Readln(InputS);
Writeln('Введите, что нужно заменить: '); Readln(Rep_1);
Writeln('Введите, на что заменить: '); Readln(Rep_2);
{Rep_1:='Yes'; Rep_2:='Oui';}
n:=length(InputS); m:=length(Rep_1); mn:=length(Rep_2);
OutputS:=InputS;
For i:= 1 to n do
	If (OutputS[i] = Rep_1[1]) and (OutputS[i+1] = Rep_1[2]) then
                {Begin}
        	For j:= 1 to m do OutputS[i+j-1]:=Rep_2[j];
               { For k:= 1 to i-1 do OutputS[i]:=InputS[i];
                OutputS:=OutputS+Rep_2;
                For k:= i+m to n do OutputS[i-m+mn]:=InputS[i];
                End;}
Writeln('Результат: '+OutputS);
readln;
End.

работает с текстом и цифрами нормально,но если итоговая строка не совпадает по кол-ву символов с начальной выдаёт лажу
нужно как то решить траблу с размером строки и если есть у кого время адаптировать под нетбинс