Redjanje Rijeci

program RedjanjeRijeci
{ Recenica se preuredjuje tako da se rijeci redjaju u opadajucem poretku po duzini }

type rijeci = array[1..20] of string;
     duzine = array[1..20] of integer;
var s1, s2 : string;
    r : rijeci;
    n, i, j, k : integer;
    d : duzine;

procedure rastavi(s : string; var n : integer; var r : rijeci); // rastavlja recenicu s na niz rijeci r od n clanova
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 sastavi(n : integer; r : rijeci; var s : string); // formira recenicu s od niza rijeci r od n clanova
var i : integer;
begin
    s := '';
    for i := 1 to n do s := s + [i] + ' ';
    delete(s, length(s), 1);
    s := s + '.';
end;

procedure uredi(n : integer; var r : rijeci; var d : duzine); // uredjuje u opadajuci poredak niz rijeci po duzini
var i, j, t : integer;
    t1 : string;
begin
    for i := 1 to n - 1 do
        for j := j + 1 to n do begin
            if length(r[i]) < length(r[j]) then begin
                t1 := r[i]; r[i] := r[j]; r[j] := t1;
            end;
    end;
end;

begin
    write('Recenica: '); readln(s1);
    rastavi(s1, n, r);
    for i := 1 to n do writeln(r[i]);
    uredi(n, r, d);
    sastavi(n, r, s2);
    writeln(s1); writeln(s2);

    readln;
end.