Привет, подскажите код ниже выводит количество букв в первом слове, но

Привет, подскажите код ниже выводит количество букв в первом слове, но если написать не предложение а просто одно слова без пробела то в выводе выходит -1. Как поправить? Pascal

var
p:string;
BEGIN
writeln('Введите предложение: ');
readln(p);
writeln('Длина первого слова = ',Length(Copy(p,1,Pos(' ',p) ))-1);
END.