Наименьшая длина слова Опции

[18192123]

Преобразовать данную строку, удалив из неё три слова наименьшей длины.

Слова могут разделяться только пробелами. Для строк использовать только length, chr, ord.

Вопрос такой: как задать условие, чтобы избавиться именно от трёх слов наименьшей длины и как такие слова искать?

Сообщение отредактировано: 18192123 - 7.01.2007 13:00

[18192123]

procedure _Delete(var s: String; start, len: Word);
var
  i: Integer;
begin

  if (start <= 0) or (start >= 255) or (len <= 0) then exit;

  if start + len - 1 > Length(s) then
   len := Length(s) - start + 1;

  for i := start to Length(s) - len do
   s[i] := s[i + len];

  dec(s[0], len);

end;

Объясните пожалуйста, что значит

dec(s[0], len);

и что такое len.