нехватка алгоритма...:(

[павля]

составьте пожалуйста алгоритм к программе...

дана строка символов s. Вывести слова по возрастанию...

VAR
S,S1:String;
S2:Array[1..130] of String;
i,i1,i2,j,k:Byte;
BEGIN
WriteLn('Enter the string:');
ReadLn(S);
WriteLn;
i:=0;
k:=0;
Repeat
Repeat
Inc(i);
Until S<>' ';
i1:=i;
Repeat
Inc(i);
Until (S=' ') or (i=Length(S));
If S=' ' then i2:=i else i2:=i+1;
Inc(k);
S2[k]:=Copy(S,i1,(i2-i1));
Until i=Length(S);
WriteLn;
WriteLn;
For i:=1 to k do
For j:=1 to k-i do
If Length(S2[j])>Length(S2[j+1]) then
begin
S1:=S2[j+1];
S2[j+1]:=S2[j];
S2[j]:=S1;
end;
For i:=1 to k do
Write(S2+' ');
WriteLn;
ReadLn;
END.


заранее благодарна за помощ...)

[sriditerrs]

Об этом и об востановление экономики , инвесторов не интересуют дорогие квартиры и об доллар растёт
на http://rus-crediter.ru/
У нас всегда интригующие новости.