Program Sort_Direta;

uses crt;

var
i,j,temp:integer;
A: array[1..15] of integer;
tamanho: integer;

Begin
    tamanho:= 5;

    {le os 6 valores de i}
    for i := 1 to tamanho do begin
        write ('entre com o valor para a posição', i:2 , ' no vetor: ');
        readln(A[i]); // É preciso informar o índex que está sendo lido
    end;

//    for i:= 1 downto (tamanho - 1) do Error "downto" vai decrementar o valor de i e não incrementar
    for i:= 1 to (tamanho -1) do
    begin
        for j:= i+1 to tamanho do
        begin
            if (a[i] > a[j]) then // É preciso informar o índex que está sendo lido
            begin
                temp := a[j];
                a[j] := a[i]; // É preciso informar o índex que está sendo lido
                a[i] := temp; // É preciso informar o índex que está sendo lido
            end;
        end;
    end;

    {escreve os valores organizados}
    for i := 1 to tamanho do
    begin
        write (A[i]:5); // É preciso informar o índex que está sendo lido
    end;

    readkey; // Usar "uses crt"
End.