program xxx;

var
    Mas: array of integer;
    Buf, i, j, size, f: integer;

Begin
    Writeln('размер масива: ');
    Readln(size);
    SetLength(mas, size);
    for i := 1 to size do
    Begin
        Writeln('Введите член ', i, '-ого значения => ');
        Readln(mas[i]);
    End;
    for i := 2 to size do
    Begin
        Buf := mas[i];
        j := i - 1;
        while (j > 0) and (Buf < mas[j]) do
        begin
            mas[j + 1] := mas[j];
            j := j - 1;
        end;
        mas[j + 1] := Buf;
    end;
    for i := 1 to size do
        writeln('a[', i, ']=', mas[i], '  ');
    readln
End.