Здравствуйте, VanekP89!
решение Вашей задачи в приложении

Приложение:
const s = ‘ students pass ‘; {строка, которую нужно вставить}var MyStr, rez: string; {считываем строку MyStr результат постепенно записываем в rez}begin readln(MyStr); {считываем строку} rez := ‘‘; {результат изначально пуст} Repeat if pos(‘examinations‘, MyStr) <> 0 then {если в строке MyStr есть подстрока ‘examinations‘, то} begin Insert(s, MyStr, pos(‘examinations‘, MyStr)); {в строку MyStr вставляем строку s при вхождении в первую строки ‘examinations‘} rez := rez + Copy(MyStr, 1, pos(‘examinations‘, MyStr)+12); {в результат дописываем кусочек подправленной строки} delete(MyStr, 1, pos(‘examinations‘, MyStr)+12); {удаляем из исходной строки исправленный фрагмент} end; Until pos(‘examinations‘, MyStr)=0; {цикл продолжается до тех пор, пока в исходной строке не останется ни одного вхождения строки ‘examinations‘} if rez=‘‘ then rez := MyStr else rez := rez + MyStr; {если после цикла вхождение строки ‘examinations‘ в строку MyStr найдено не было, то результатом будет сама строка MyStr. В противном случае дописываем в результат оставшиеся в строке MyStr символы} writeln(rez); readln;end.