tp 1 ej 3 b INSERTAR ARCHIVO A ARR Y ORDENAR ASCENDENTEMENTE

program guardarvocales;
{}
Type archent = file of integer;
Type arrent = array [1..10] of integer;

const
    min=1;
    max=10;


procedure RandomArchivo(var arch: archent);
var
    Dato, i: integer;
begin
    Randomize;
    Seek(Arch, 0);
    for i:= min to max do Begin
        Dato:= Random(100) + 1;
        Write(Arch, Dato);
    end;
end;

procedure mostrarreglo(arreglo:arrent);
var
    i:integer;
begin
    for i:=min to max do
    begin
        write('[',arreglo[i],']');
    end;

end;

procedure MostrarArchivoChar(var char:archent);
var
    Dato: integer;
begin
    Seek(char, 0);
    //Dato:= -1;
    Writeln('El Archivo es:');
    While not EoF(char) do Begin
        Read(char,Dato);
        Writeln('[',Dato,']');
    end;
end;

procedure OrdenamientoBurbujeo(var Arreglo: arrent);
var
    i, t: integer;
    Ordenado: boolean;
begin
    Ordenado:= false;
    While not (Ordenado) do Begin
        Ordenado:= true;
        for i:= min to max-1 do
            If Arreglo[i] > Arreglo[i+1] then Begin
                Ordenado:= false;
                t:= Arreglo[i];
                Arreglo[i]:= Arreglo[i+1];
                Arreglo[i+1]:= t;
            end;
    end;
end;

procedure insertarregloarch(var arch:archent;var arreglo:arrent);
var
    dato,i:integer;
begin
    i:=1;
    seek(arch,0);
    while not eof(arch) do
    begin
        read(arch,dato);
        arreglo[i]:=dato;
        i:=i+1;
    end;
end;

var
    char:archent;
    arriel:arrent;
begin
    assign(char,'c:\arielemiliomartino9898');
    rewrite(char);
    randomarchivo(char);
    insertarregloarch(char,arriel);
    OrdenamientoBurbujeo(arriel);
    MostrarArchivoChar(char);
    mostrarreglo(arriel);
    close(char);
end.