Подсчёт количества пробелов и замена буквы на запятую - Pascal

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

Дан текст состоящий из слов разделённый пробелами. Подсчитать количество пробелов в тексте. Заменить букву P на запятую. Напечатать исходный n и полученный текст.

Решение задачи: «Подсчёт количества пробелов и замена буквы на запятую»

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

var
  i, k: integer;
  s: string;
 
begin
  readln(s);
  k := 0;
  for i := 1 to length(s) do
  begin
    if s[i] = ' ' then 
      inc(k);
    if s[i] = 'P' then 
      s[i] := ',';
  end;
  writeln('Пробелов: ', k);
  writeln(s);
end.

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

Объявляются переменные:
- i, k: целочисленные переменные для использования в цикле и подсчета количества пробелов
- s: строковая переменная для хранения вводимой пользователем строки.
Вводится строка с клавиатуры и записывается в переменную s.
Устанавливается начальное значение переменной k равное 0.
Начинается цикл по всем символам в строке s (от 1 до длины строки).
Внутри цикла, проверяется каждый символ строки:
- Если текущий символ равен пробелу (' '), увеличиваем значение переменной k на 1.
- Если текущий символ равен 'P', заменяем его на запятую ','.
После завершения цикла выводится количество пробелов в строке с помощью команды writeln('Пробелов: ', k).
Выводится строка s с внесенными изменениями (если были сделаны изменения).