Заменить в предложении те слова, которые начинаются со строчной буквы w

begin
  writeln(ReadlnString('Введите текст:').ToWords.Select(v -> v[1] = 'w' ? 'ZAMENA' : v).JoinIntoString(' '));
end.

begin
  var s := ReadlnString('Строка:');var i := 1;
  while i < s.Length do
    if (s[i] = ' ') and (s[i + 1] = ' ') then delete(s, i, 1)
    else inc(i);
  if s[s.Length] = ' ' then delete(s, s.Length, 1);
  if s[1] = ' ' then delete(s, 1, 1);
  if s[1] = 'w' then begin
    var (j, k) := (1, 0);
    while (s[j] <> ' ') and (i < s.Length) do begin
      inc(j); inc(k);
    end;
    delete(s, 1, k + 1);
    insert('ZAMENA', s, 1);
  end;
  i := 2;
  while i < s.Length do begin
    if (s[i] = 'w') and (s[i - 1] = ' ') then begin
      var (j, k) := (i, 0);
      while (s[j] <> ' ') and (j < s.Length) do begin
        inc(j); inc(k);
      end;
      delete(s, i, k + 2);
      insert('ZAMENA ', s, i);
    end else inc(i);
  end;
  writeln(s);
end.