В строке между словами вставить вместо пробела запятую и пробел - Free Pascal

в ряде между словами вставить вместо пробела, запятую и пробел

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

var
  i: integer;
  s: string;
begin
  readln(s);
  for i := Length(s) downto 1 do
    if s[i] = ' ' then Insert(',', s, i);
  writeln(s);
end.

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

В данном коде происходит следующее:

Объявляются две переменные:
- i типа integer (целое число), используемая в цикле,
- s типа string (строка), в которую считывается строка из стандартного ввода.
С помощью функции readln() в переменную s считывается строка из стандартного ввода.
Затем выполняется цикл for, который начинается с последнего символа строки (Length(s) downto 1) и проверяет каждый символ на равенство пробелу (' ').
Если символ является пробелом, то с помощью функции Insert(',', s, i) в строку s вставляется запятая и пробел.
После завершения цикла, измененная строка выводится на стандартный вывод с помощью функции writeln(). Таким образом, данный код меняет все пробелы в строке на запятую и пробел.