Дана строки S и S1. Каждое вхождение S1 в строку S в качестве подстроки заменить на обращенную подстроку S1 ( на Pascal )

[Serge_Bliznykov]

тут не согласен.. +1 нужно было бы только при строгом неравенстве.

и зря. я же в отладчике ходил, прежде чем +1 поставить.
s := 'BEST'
s1 := 'ST';
чему равно Length(s) - Length(s1) ?
прошу заметить, что нужное нам совпадение будет при i=3

[DiemonStar]

Признаю, неправ...
Надо будет себе как-нить паскаль поставить, а то без отладки косяки не так заметны)