Слова в строке отделяются одним символом пробела. Определите количество слов, содержащихся

Количество слов будет на единицу больше количества пробелов, если пользоваться обычным методом.

1. Обычное решение.

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
var
  s:string;
  i,k:integer;
begin
  Write('Введите строчку: '); Readln(s);
  k:=0;
  for i:=1 to Length(s) do
    if s[i]=' ' then Inc(k);
  Writeln('Количество слов одинаково ',k+1)
end.

Результат исполненья программки:
Введите строчку: А роза упала на лапу Азора
Количество слов равно 6

2. Решение срeдствами PascalABC.Net 3.1

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
  var s:=ReadlnString('Введите строчку:');
  Writeln('Количество слов равно ',s.ToWords.Count)
end.

Результат исполненья программки:
Введите строку: А роза свалилась на лапу Азора
Количество слов одинаково 6