Странный баг...

[munthrekosh]

Есть следующий код:

var
str,str2,rstr: string;
i,j: integer;
begin
rstr:='array';
write('--------Vvedite stroku dlinoy d0 100 simvolov i soderjashuyu sochetanie "array".');
write(' Programa proizvedet zamenu sochetaniya "array" na sochetanie "simple".');
write(' ');
write('**str=');
readln(str);
i:=1;
If length(str)>100 then str:=copy(str,1,100);
while (i<=length(str)) do begin
j:=1;
If (length(str)-i)>=4 then
While str[i+j-1]=rstr[j] do Inc(j);
If j>=5 Then begin
str2:=str2+'simple';
i:=i+5;
end else begin
str2:=str2+str[i];
Inc(i);
end;
end;
write('--------Na vihode poluchili stroku s sochetanirm "simple" vmesto "array"');
write(' ');
write('**str2=');
writeln(str2);
write('--------Najmite klavishu "Enter" dlya vihoda iz programmi');
readln;
end.

Он должен в веденной строке искать сочетание 'array' и заменять его на сочетание 'simple'. Но я заметил один странный баг.
Если ввести 'arra[пробел]' то программа воспринимает это как 'array'.
Ищу эту ошибку уже месяц.... Не могу найти! Помогите плз!

[xakkkkker]

Обязательно надо так изощряться. А нельзя использовать pos()? или надо как у вас?

[munthrekosh]

Уже нельзя...

[ViktorR]

Попробуй заменить заменить

If j>=5 Then begin

на

If j>5 Then begin

В коде j указывает на следующий ожидаемый символ.

[munthrekosh]

Отлично! Во я дебил! И эту ошибку я не мог найти!!! Да как так то?!