Заменить в заданной строке чётные вхождения слова «зима» словом «осень»

program SeasonString;
 
const
  REPLACE_PATTERN_FOR_EVEN = 'Осень';
  REPLACE_PATTERN_FOR_ODD = 'Весна';
  REPLACE_TARGET = 'зима';
 
var
  SStr : String;
  ReplaceValue : String;
  CounterWinter : Word;
  Place : Word;
 
begin
  //считываем строку
  writeln('Введите строку, несколько раз содержащую слово "Зима".');
  readln(SStr);
  
  //переводим строку в нижний регистр, чтобы легче было обрабатывать
  SStr := SStr.ToLower();
  
  Place := 0;
  CounterWinter := 0;
  repeat
    //определяем, пора ли делать замену
    if (CounterWinter > 0)
    then
      begin
        //если пора, то определяем на что заменить
        if (CounterWinter mod 2 = 0)
        then ReplaceValue := REPLACE_PATTERN_FOR_EVEN
        else ReplaceValue := REPLACE_PATTERN_FOR_ODD;
        
        //выполняем замену
        SStr := Copy(SStr, 1, Place-1) + ReplaceValue + Copy(SStr, Place+4, SStr.Length-(Place+4-1));
      end;
    
    //ищем искомую подстроку в строке
    Place := Pos(REPLACE_TARGET, SStr);
    
    //если находим, увеличиваем счётчик
    if (Place > 0)
    then Inc(CounterWinter);
  until (Place = 0);
  
  writeln;
  writeln(SStr);
  
end.

const
    REPLACE_PATTERN: Array[Boolean] Of String[5] = ('осень', 'весна');
    REPLACE_TARGET = 'зима';
var
    s: String;
    counter, id: Word;
begin
    Write('Введите строку, несколько раз содержащую слово "зима": '); ReadLn(s);
    counter := 0; id := Pos(REPLACE_TARGET, s);
    while (id > 0) do
    begin
        Inc(counter);
        Delete(s, id, Length(REPLACE_TARGET));
        Insert(REPLACE_PATTERN[Odd(counter)], s, id);
        id := Pos(REPLACE_TARGET, s);
    end;
    WriteLn(s);
end.