Задача с текстом

[~AngelOK~]

Помогите, пожалуйста, меня просто не было на той теме, переписать ни у кого не смогла, а задачу надо сделать(
Текст из произвольного количества слов. Найти и удалить из текста самое маленькое слово.

[Sazary]

меня просто не было на той теме

В таком случае тему можно изучить по любому учебнику.

Предполагается, что самое маленькое слово в единственном экземпляре.

uses crt;
var
s,wrd,buf : string;
i,len : integer;
wrdPos,k : integer;

begin
clrscr;
writeln('Enter string:');
readln(s);

i:=1;
len := length(s);
wrd := '';
wrdPos := 0;

while i<=len do  { проходим по всей строке }
 begin
 while (s[i]=' ') and (i<=len) do inc(i);
 buf := '';
 k := i;
 while (s[i]<>' ') and (i<=len) do  { записываем слово в буфер }
  begin
  buf := buf + s[i];
  inc(i);
  end;
 if wrd='' then
  begin
  wrd := buf;
  wrdPos := k;
  end
 else if length(buf)<length(wrd) then  { если слово в буфере меньше того,
    которое запомнили }
   begin
   wrd := buf;   { ...запоминаем слово }
   wrdPos := k;  { и его позицию }
   end;
 end;

delete(s,wrdPos,length(wrd));  { удаляем слово }
writeln(s);

readln;
end.