program sort;
const rozmiar = 80;
type zakres	  = 1..rozmiar;
type tablica  = array[zakres] of integer;
var pom, ind , i : integer;
   tab			 : tablica;
   zmiana		 : boolean;
procedure generuj(var t : tablica);
var i : zakres;
begin 
   for i := 1 to rozmiar do
	  t[i]:=round((random-0.5)*32000)
end;
procedure gen_malejace(var t : tablica);
var i : zakres;
begin 
   for i := 1 to rozmiar do
	  t[i] := rozmiar-i+1
end;
procedure drukuj(var t : tablica);
var i : zakres;
begin 
   for i := 1 to rozmiar do
	  if i mod 8 = 0
		 then writeln(t[i]:6) { formatowanie wydruku }
	  else write(t[i]:6,', ');
   writeln
end;
begin
   {   generuj(tab); }
   gen_malejace(tab);
   drukuj(tab);
   ind:= 1;
   zmiana := true; 
   while zmiana do
   begin
	  zmiana :=false;
	  for i:= 1 to rozmiar-ind do
		 if tab[i]>tab[i+1]
			then
		 begin
			pom := tab[i];
			tab[i] := tab[i+1];
			tab[i+1] := pom;
			zmiana := true
		 end;
	  ind := ind+1
   end;
   drukuj(tab) 
end.