Algoritmos "Vetor" Que o Professor Nava Fez em Aula

program ordenar;
uses crt;
const TAMANHO = 10;
var
    a : integer;
    b : integer;
    c : integer;
    x : integer;
    v : array [1..TAMANHO] of integer;
    i : integer;
    esq : integer;
    dir : integer;
begin
    write('Digite o valor de a: ');
    readln(a);
    write('Digite o valor de b: ');
    readln(b);
    write('Digite o valor de c: ');
    readln(c);

    if(a > b) then
    begin
        x := a;
        a := b;
        b := x;
    end;
    if(a > c) then
    begin
        x := a;
        a := c;
        c := x;
    end;
    if(b > c) then
    begin
        x := b;
        b := c;
        c := x;
    end;

    writeln(a, ' - ', b, ' - ', c);

    for i:=1 to TAMANHO do
    begin
        write('digite o elemento ', i, ': ');
        readln(v[i]);
    end;

    for esq := 1 to TAMANHO - 1 do
        for dir := esq + 1 to TAMANHO do
            if(v[esq] > v[dir]) then
            begin
                x := v[esq];
                v[esq] := v[dir];
                v[dir] := x;
            end;

    for i:=1 to TAMANHO do
        write(v[i], ' ');
    readkey;
end.