Модернизировать программу, так, чтобы дополнительно узнать сколько пробелов было в строке - Pascal

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

а)Составить программу, которая будет подсчитывать количество символов во введённой строке. б)Модернизировать программу, таким образом, чтобы дополнительно узнать сколько пробелов было в строке. Ну с (а) понятно.

var s:string;
begin
writeln('Vvodi Stroky "s"');
readln(s);
writeln(Length(s));
End.

А вот с (б) не совсем. За ранее благодарю.

Решение задачи: «Модернизировать программу, так, чтобы дополнительно узнать сколько пробелов было в строке»

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

program Dekio;
var
s :string;
i,k :integer;
begin
k:=0;
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then
inc(k);
writeln('Количество символов ',length(s));
writeln('Количество пробелов ',k);
end.

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

Создается программа Dekio.
Объявляются переменные: s - строка, i, k - целые числа.
Чтение строки из стандартного ввода с помощью функции readln.
Инициализация переменной k с 0.
Цикл for для каждого символа в строке s.
Внутри цикла проверяется, является ли текущий символ пробелом.
Если символ является пробелом, то переменная k увеличивается на 1 с помощью функции inc.
После завершения цикла выводится количество символов в строке с помощью функции length.
После завершения цикла выводится количество пробелов в строке с помощью переменной k.