Učitavanje neopadajućeg niza

procedure ReadArrayNonDescending(var A: array of Integer; N: Integer);
var
    Elem, I, J: Integer;
begin
    for I := 1 to N do
    begin
        readln(Elem);

        J := I - 1;
        while (J >= 1) and (A[J] > Elem) do { Bitno je da provera J >= 1 ide prva }
        begin
            A[J+1] := A[J];
            dec(J)
        end;

        A[J+1] := Elem
    end
end;