В заданной последовательности символов подсчитать число пробелов и определить, входит ли в неё заданная буква - Pascal

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

Дана последовательность символов х1, х2, ..., xn. Определить: -количество пробелов; -входит ли в последовательность буква Р. Заранее спасибо)

Решение задачи: «В заданной последовательности символов подсчитать число пробелов и определить, входит ли в неё заданная буква»

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

var x:char;
     i,k,p:integer;
begin
k:=0;
p:=0;
for i:=1 to n  do
 begin
  write('Введите символ');
  readln(x);
  if x=' ' then inc(k)
  else if x in ['P','Р'] then p:=1;//одна латинская, вторая русская
 end;
write('Количество пробелов=',k);
if p=1 then write('буква Р есть')
else write('буквы Р нет')
end.

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

Объявляются переменные:
- x (тип char) - для хранения символа;
- i (тип integer) - целочисленная переменная для использования в цикле;
- k и p (тип integer) - для подсчета количества пробелов и для проверки наличия определенной буквы.
Значения переменных инициализируются:
- k устанавливается в 0 (начальное количество пробелов);
- p устанавливается в 0 (переменная для хранения информации о наличии буквы P или Р).
Запускается цикл for от 1 до n, где n - количество символов в последовательности.
В теле цикла выполняются следующие действия:
- Выводится сообщение Введите символ при помощи write('Введите символ') и вводится символ с клавиатуры при помощи readln(x);
- Происходит проверка: если введенный символ равен пробелу (' '), то значение k увеличивается на 1 при помощи inc(k).
- Если введенный символ является либо буквой P, либо буквой Р (капитализация различается), то переменной p присваивается значение 1.
После завершения цикла выводится результат:
- Выводится количество пробелов, которое было подсчитано в переменной k при помощи write('Количество пробелов=',k).
- Выполняется проверка переменной p: если значение p равно 1, то печатается буква Р есть, в противном случае печатается буквы Р нет.
Завершается выполнение программы.