лидирующие пробелы это

Ответ от Vxcbh[гуру]
Оператора string нет. string - зарезервированное слово - объявление типа "строка".Можно так:program WordsCnt;uses Crt;var St: string[255]; Cnt: Integer;beginReadLn(St);Cnt:= 1;if Length(St) > 0 then beginwhile Pos(' ', St) <> 0 do begin if Pos(' ', St) <> 0 then Inc(Cnt); // здесь можно, конечно, добавить проверки на завершающий пробел, на лидирующий пробел и на то, что в строке только один пробел. St[Pos(' ', St)]:= '%'; end;WriteLn('Количество слов в строке: ', Cnt);end elseWriteLn('Строка пуста! ');while not KeyPressed do;end.