program sort;
const rozmiar = 80;
type zakres	  = 1..rozmiar;
type tablica  = array[zakres] of integer;
var ind , i, zmiana, zm	: integer;
   pom					: integer;
   tab					: tablica;
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 := rozmiar-1;
   repeat
     zm := 1;
     for i:= 1 to zmiana do
	 if tab[i] > tab[i+1] then
	 begin	
		pom := tab[i];
		tab[i] := tab[i+1];
		tab[i+1] := pom;
		zm := i;
	 end;
     ind := ind+1;
     zmiana := zm
   until zmiana=1 ;
   drukuj(tab) 
end.