Подсчитайте количество слов в данной строке

Var
  s: String;
  i,k: Byte;
BEGIN
Writeln('Введите строку: ');
Readln(s);
While s[1]=' ' do
Delete(s,1,1);
While Pos('  ',s)<>0 do
Delete(s,Pos('  ',s),1);
While s[Length(s)]=' ' do
Delete(s,Length(s),1);
s:=s+' ';
For i:=1 to Length(s) do
If s[i]=' ' Then
Inc(k);
Writeln('Кол-во слов = ',k);
Readln
END.

Var
  s: String;
  i,k: Byte;
BEGIN
Writeln('Введите строку: ');
Readln(s);          //вводим строку
While s[1]=' ' do   //в этом цикле удаляются все начальные пробелы из строки
Delete(s,1,1);
While Pos('  ',s)<>0 do     //в этом цикле удаляются все лишние пробелы, т.е. делаем так, чтобы между словами был ровно один пробел
Delete(s,Pos('  ',s),1);
While s[Length(s)]=' ' do   //в этом цикле удаляются все конечные пробелы
Delete(s,Length(s),1);
s:=s+' ';                   //приписываем в конец строки один пробел
For i:=1 to Length(s) do    //цикл от начала до конца строки
If s[i]=' ' Then            //если очередной символ является пробелом, то...
Inc(k);                     //...увеличиваем счетчик К на единицу
Writeln('Кол-во слов = ',k);//выводим кол-во слов (т.е. сколько пробелов, столько и слов)
Readln
END.