Приложение:
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.