Помогите пжл (паскаль)

Question

Дана строка, содержащая пробелы. Найдите, сколько в ней слов (слово – это последовательность непробельных символов, слова разделены одним пробелом, первый и последний символ строки – не пробел).

Светлана Кочеткова · Accepted Answer

k:=0; 
for i:=1 to length(s) do 
if s [ i ] = ' ' then inc(k); 
writeln(k+1);