String8

//zadata recenica transformise tako sto se njene rijeci stampaju u opadajucem
//poretku po duzini

program s9;
type nizString=array[1..20] of String;
var
s2,s1,rijec:string;
i,j,n:integer;
rijeci:nizString;

procedure Rastavljanje(s:string; var n:integer; var r:nizString);
begin
    delete(s,length(s),1);
    s:=s+' ';
    n:=0;
    while (pos(' ',s))>0 do
    begin
        n:=n+1;
        r[n]:=copy(s,1,pos(' ',s)-1);
        delete(s,1,pos(' ',s));
    end;

end;

procedure sastavljanje(n:integer;r:nizString; var s:string);
var i:integer;
begin
    s:=' ';
    for i:=1 to n do
    begin
        s:=s+r[i]+' ';
    end;
    delete(s,length(s),1);
    s:=s+'.';
end;

procedure Uredjivanje(n:integer; var r:nizString);
var i,j:integer; t:string;
begin
    for i:=1 to n-1 do
        for j:=i+1 to n do
        begin
            if length(r[i])<length(r[j]) then
            begin
                t:=r[j];
                r[j]:=r[i];
                r[i]:=t;
            end
        end;
end;

begin
write('String: '); readln(s1);
writeln(s1);
rastavljanje(s1,n,rijeci);
Uredjivanje(n,rijeci);
sastavljanje(n,rijeci,s2);


writeln(s2);
readln;
end.