Program POST;
uses crt;
var tablica:array[1..10] of byte;
    a:byte;
  procedure sortowanie;
  var tmp:byte;
      a:byte;
  begin
    a:=1;
    repeat
      if ((tablica[a] < tablica[a+1]) and (a<=9)) then
      begin
        tmp:=tablica[a];
        tablica[a]:=tablica[a+1];
        tablica[a+1]:=tmp;
        a:=0;
      end;
    a:=a+1;
    until a>9;
  end;
  procedure print_r(arr:array of byte);
  var a:byte;
  begin
    Writeln('Array(');
    for a:=0 to 9 do
    begin
      writeln('[',a,'] => ',arr[a]);
    end;
    Writeln(')');
  end;
begin
    Writeln('Wprowadz 10 warto˜ci:');
    for a:=1 to 10 do
    begin
      write('Wprowad« ',a,' warto˜†: ');
      readln(tablica[a]);
    end;
    print_r(tablica);
    sortowanie;
    print_r(tablica);


    readkey;
    clrscr;
end.