ordenamiento seleccion

program ordenamiento;

uses
    crt, dos;

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

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


procedure carga(var X:vector);

    var
        I:Int64;

    begin

        Randomize;

        For I := 1 to Length(X) do

            X[I] := Random(30000);

    end;

procedure mostrar(X:vector);

    var
        I:Int64;

    begin

        For I := 1 to Length(X) do

                write(X[I], ' ');

        writeln('');

    end;

procedure ordenamiento(var X:vector);

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

    begin

        writeln('Ordenando vector...');

        gettime(hour1, min1, sec1, hsec1);

        For I := 1 to Length(X) do
            Begin
                menor := X[I];
                For J := I+1 to Length(X) do
                    if(X[J]<menor)then
                        begin
                            menor := X[J];
                            pos := J;
                        end;
                aux := X[I];
                X[I] := menor;
                X[pos] := aux;
            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.