Ввести строку. Заменить заданное слово на другое слово в строке - Free Pascal

Формулировка задачи:

Всем доброго. Возможно тему отправила не по адресочку...извиняйте ! В общем очень нужна помощь с составление программы.. помогите пожалуйста !!!! ВВести строку.Заменить заданное слово на другое слово в строке. Заранее спасибоо

Решение задачи: «Ввести строку. Заменить заданное слово на другое слово в строке»

Листинг программы

var st,s1,s2: string;
   i: byte;
begin
   write('Строка   : '); readln(st);
   write('Заменить: '); readln(s1);
   write('На         : '); readln(s2);
   i:=pos(s1,st);
   delete(st,i,length(s1));
   insert(s2,st,i);
   writeln('Сделано: ',st);
end.

Объяснение кода листинга программы

Объявлены три переменные типа string: st, s1, s2.
Введен текст для работы с ним в цикле.
Введен запрос на ввод строки для обработки.
Введен запрос на ввод строки, которую необходимо заменить.
Введен запрос на ввод строки, на которую необходимо заменить.
Вычислено начальное значение i, которое будет использоваться для поиска позиции первого вхождения подстроки s1 в строке st.
Позиция первого вхождения подстроки s1 в строке st сохранена в переменной i.
Удалена часть строки st, начиная с позиции i и до конца подстроки s1.
Вставлена часть строки s2 в строку st, начиная с позиции i.
Выведена на экран измененная строка st.