Дана строка. Добавить в конец каждого слова символ количества символов этого слова - PascalABC.NET

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

Оформить в виде процедуры и функции

Решение задачи: «Дана строка. Добавить в конец каждого слова символ количества символов этого слова»

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

function функЗамена(s : String) : String;
begin
  Result := s;
  foreach var word in Result.ToWords.Distinct do
    Result := Result.Replace(word, word+word.Length);
end;
 
procedure процЗамена(var s : String);
begin
  foreach var word in s.ToWords.Distinct do
    s := s.Replace(word, word+word.Length);
end;
 
begin
  var s := ReadLnString('Слова через пробел:');
  WriteLn(функЗамена(s));
  процЗамена(s);
  WriteLn(s);
end.

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

В данном коде реализуется задача добавления в конец каждого слова в строке символа количества символов этого слова.

Объявлены две функции:
- Функция функЗамена с типом возвращаемого значения String, которая будет выполнять замену каждого слова в строке.
- Функция процЗамена с типом возвращаемого значения void, которая будет выполнять замену каждого слова в строке, но также и применяться к самой строке.
В основной части кода:
- Создается строка s, которая заполняется из консоли.
- Вызывается функция функЗамена, передавая ей строку s и записывая результат в переменную Result.
- Затем вызывается процедура процЗамена, передавая ей строку s.
- Наконец, выводится на экран исходная строка s.
Внутри функции функЗамена:
- Результат строки s присваивается переменной Result.
- Затем, с помощью цикла foreach, происходит итерация по каждому уникальному слову в строке s.
- Для каждого слова выполняется замена этого слова в строке Result на это же слово, но с добавленным в конец символом количества символов этого слова.
- В конце функции возвращается результат в переменную Result.
Внутри процедуры процЗамена:
- Для каждого уникального слова в строке s выполняется замена этого слова на это же слово, но с добавленным в конец символом количества символов этого слова.
- Замененная строка s присваивается самой себе.
В конце кода выводится на экран исходная строка s.