Подскажите код ниже выводит количество букв в первом слове, но если написать не предложение а просто одно слова без пробела то в выводе получается -1. как исправить? pascal var p: string; begin writeln('введите предложение: '); readln(p); writeln('длина первого слова = ',length(copy(p,1,pos(' ',p) ); end.