Объясните, зачем пробел был добавлен в начале строки?

[quakenez]

program Lab_7_7;
var s:string;
i,k:integer;
begin write('введите строку:');
readln(s);
s:=' '+s;
k:=0;
for i:=1 to length(s) do begin
if (s[i]=' ') and (s[i+1]='b') then k:=k+1;
end;
writeln(k);
end.

[NetSpace]

это типа маркер, опознавательный знак. он используется дальше в условии if (s[i]=' ') and (s[i+1]='b') then k:=k+1;
типа как начало слова

[quakenez]

Сообщение от NetSpace

это типа маркер, опознавательный знак. он используется дальше в условии if (s[i]=' ') and (s[i+1]='b') then k:=k+1;
типа как начало слова

то есть программа определяет начало и конец слова??

[ViktorR]

то есть программа определяет начало и конец слова??

А сами как думаете?

if (s[i]=' ') and (s[i+1]='b') then k:=k+1;

Этот код какое условие проверяет?

Если текущий символ ' ' (пробел) И следующий символ 'b', то увеличим счётчик.

Подсчитываются слова (если пробел считается разделителем слов), которые начинаются с символа 'b'.
И всё! Т.е. это могут быть и ' b', и ' baba...', и ' bubu...' и ' byby...'.

К тому же, рассматривается вариант прописной буквы. Заглавные пролетают мимо.