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

[18192123]

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

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

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

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

[18192123]

вот всё , что смогла... однако так и не поняла про длину 3-х наименьших...

uses crt;
function Slovo ( s : string; n  :integer ) : string;
const lim = [' ', ',', '!'] ;
var ss : string;
k, c, i : integer;
begin
ss := ''; c := 1; k := 1;
while k <= length(s) do begin
 while not (s[k] in lim) and (k <= length(s)) do begin
if c = n then ss: =ss + s[k];
inc (k); end;
 inc ( c );
while (s[k] in lim) and (k <= length(s)) do inc (k);
end;
Slovo := ss;
end;

var
s1, s2 : string;
n1, min, i, kol : integer;

begin
clrscr;
writeln ( '   vvedite stroky' );
readln ( s1 );
n1 := 1;
while slovo ( s1, n1 ) <> '' do inc ( n1 );
min := length (slovo ( s1, i ));
kol := 0;
repeat
  for i := 2 to n1 do
    begin
      if length ( slovo (s1, i)) < min then
        begin
          min := length (slovo (s1, i))  

{ ??????????????}