Здравствуйте, Orlova Svetlana Stanislavovna!
Поскольку программа Ваша работает,то лишь немного ее усовершенствовал. Сейчас можно вводить практически любой текст, несколько пробелов подряд, основные разделители слов, можно добавить.
Комментирую только то, что изменил.
Прилагаю саму программу, возможно Вы неправильно ввели ее текст.


Приложение:
program a1;
uses crt;
const rz=['.',',',';',':','?','!'];{список разделителей}
var str:string;
slovo,slovomin:string;
i:integer;
begin
clrscr;
writeln('Vvedite text:');
readln(str);
for i:=1 to length(str) do
if str[i] in rz then str[i]:=' ';{заменим разделители на пробелы}
while pos(' ',str)>0 do {если 2 пробела подряд, то 1 удаляем(между апострофами обязательно 2 пробела!, инче удалите все пробелы, и не будет слов)}
delete(str,pos(' ',str),1);
if str[length(str)]=' 'then{если в конце строки оказался пробел, удаляем его}
delete(str,length(str),1);
i:=1;
slovomin:='';
while i<=length(str) do
begin
if str[i]<>' ' then
begin
slovo:='';
while (str[i]<>' ') do
begin
slovo:=slovo+str[i];
if (i=length(str)) then break;
i:=i+1;
end;
if slovomin = '' then slovomin := slovo;
if length(slovo)<length(slovomin) then
slovomin:=slovo;
end;
inc(i);
end;
write('slovo min : ',slovomin);
readln
end.