СВ
Смирнова Вероника
Тупо используя ее вместо обычного цикла.
Довольно бессмысленно применять тут рекурсию. Хотя примерно так:
function c( s: string; p: integer ): integer;
var r: integer;
begin
r := 0;
if (p <= length(s)) then
begin
if (s[ p ] = ' ') then r := 1;
r := r + c( s, p+1 );
end;
c := r;
end;