В строке из 50 символов отдельные слова разделены пробелом. Упорядочить строку так, чтобы каждое следующее слово было не короче предыдущего.
program lab_6;
uses crt;
const l=50;
var s,s1:string[50];
i,j,k:integer;
c:char;
begin
s:='';
for i:=1 to l do
begin
readln©;
s:=s+i;
end;
???
end.