Ordenar vector

program ordenamiento;

uses
    crt, dos;

type
    vector = array [1..30000] of integer;

var
    X:vector;
    programa:boolean;
    opcion:integer;


procedure carga(var X:vector);

    var
        I:Integer;

    begin

        Randomize;

        For I := 1 to Length(X) do

            X[I] := Random(30000);

    end;

procedure mostrar(X:vector);

    var
        I:Integer;

    begin

        For I := 1 to Length(X) do

                write(X[I], ' ');

        writeln('');

    end;

procedure ordenamiento(var X:vector);

    var
        I, J, aux:integer;
        hour1, min1, sec1, hsec1, hour2, min2, sec2, hsec2, hour, min, sec, hsec:word;

    begin

        writeln('Cargando vector...');

        gettime(hour1, min1, sec1, hsec1);

        For J := 1 to Length(X) do

            For I := 2 to Length(X) do

                begin

                    If (X[I] < X[I-1]) then

                        begin

                            aux := X[I-1];
                            X[I-1] := X[I];
                            X[I] := aux;

                        end;

                end;

        gettime(hour2, min2, sec2, hsec2);
        hour := hour2-hour1;
        min := min2-min1;
        sec := sec2-sec1;
        hsec := hsec2-hsec1;
        writeln('Vector ordenado en ', hour, ':', min, ':', sec, ':', hsec);
        readkey;

    end;

begin

    programa := true;

    carga(X);
    writeln('Vector cargado');
    readkey;

    while(programa)do
        begin

            writeln('1. Ordenar vector');
            writeln('2. Mostrar vector');
            writeln('0. Cerrar programa');
            readln(opcion);

            case opcion of

                1: ordenamiento(X);
                2: mostrar(X);
                0: programa := false;

            end;

        end;

end.