program szeregowanie_tablicy_1_wymiarowej;

uses crt;

var
a,i,j:integer;
tab:array[1..5] of integer;

begin
  clrscr;

  tab[1]:=1;
  tab[2]:=-2;
  tab[3]:=13;
  tab[4]:=-4;
  tab[5]:=1;

  for i:=1 to 4 do
  begin
    for j:=i+1 to 5 do
    begin
      if tab[i]>tab[j] then
      begin
        a:=tab[i];
        tab[i]:=tab[j];
        tab[j]:=a;
      end;
    end;
  end;

  for i:=1 to 5 do
  begin
    write('  ',tab[i]);
  end;

  repeat until keypressed;

end.