Задание на строки - Pascal

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

Подсчитать сколько раз в тексте «В киоске продают газеты стоимостью 5 руб. и журнал, стоимостью 50 руб. встречается слово «стоимостью». Если таких слов 2, то из исходной фразы сформировать новую фразу «В киоске продаются газеты стоимостью 10 руб. и 2 журнала, стоимостью 100 руб.».

Решение задачи: «Задание на строки»

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

Program stroki;
uses crt;
Var s,sl:string;
  i,r:integer;
begin
  writeln('   Введите текст');
  {В киоске продают газеты стоимостью 5 руб. и журнал, стоимостью 50 руб.}
  read(s);
  writeln('   Введите слово');
  readln(sl);
  s:=' '+s+' ';
  sl:=' '+sl+' ';
  while true do
    begin
      inc(i);
      if (copy(s,i,length(sl))=sl) then inc(r);
      if (i>=length(s)) then break;
    end;
  Writeln(r,' раз(a)');
  if (r=2) then
    writeln('   В киоске продаются газеты стоимостью 10 руб. и 2 журнала, стоимостью 100 руб.');
readln
end.

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

Объявление переменных: s, sl, i, r (строки, целочисленные переменные)
Вывод сообщения для ввода текста и слова
Ввод текста и слова с помощью функций readln
Приведение строк к нижнему регистру с помощью функции copy
Организация цикла while true для поиска совпадений слов
Увеличение счетчика i на каждом шаге цикла
Условие выхода из цикла при достижении конца строки s
Вывод количества совпадений с помощью функции writeln
Условие вывода сообщения о изменении цен на журналы при совпадении 2 раз
Завершение работы программы с помощью функции readln