program bublinkove_triedenie;
type prvok=integer;
index=0..100;
var i,j,k,n:index;
x:prvok;
a: array[index] of prvok;
begin
writeln('Program na zostupne usporiadanie ciselneho pola bublinovym triedenim.');
write('Zadaj pocet prvkov:');
readln(n);
writeln('Zadaj ',n,' prvkov: ');
for i:=1 to n do
begin
write(i,'.:');
readln(a[i]);
end;
for i:=1 to n do
begin
for j:=1 to N-1 do
if a[j]<a[j+1] then
begin
x:=a[j];
a[j]:=a[j+1];
a[j+1]:=x;
end;
for j:=1 to n do write(a[j],','); {toto tu nemusi byt}
writeln; {priebezny vypis}
end;
writeln('Zoradenie podla velkosti:');
for i:=1 to n do write(a[i],',');
writeln; readln;
end.