составьте программу, которая позволяет заменить в строке слово мама на слово папа

Два вопроса. 1) Если написано не мама", а "Мама"? 2) Если фраза такова: "Мама Васи испекла пирожки, а мама Лены сделала салаты" ?

Или тогда "кодер" уже не "крэйзи"? )))

var //Объявляем переменныеi:integer;s:string;begin // Начало работы блокаreadln(s); // В переменную S записываем введенную строкуi := Pos('мама', s);  // В переменную i записываем количество символов до данного словаif i > 0 then //Если количество символов больше нуля тогда begin  Delete(s, i, 4);  // Удаляем из веденной строки (Переменная S), слово мама, содержащие 4 символа Insert('папа', s, i);  // Заменяем словом Папаend; //Конецwriteln(s); //Выводим на экран полученный текстend.