program bublina;
uses crt;
var i,k,p,n: integer;
  vymena: boolean;
var a: array [1..50] of integer;
begin
  randomize;
  clrscr;
  writeln('Zadaj pocet prvkov pola:');
  readln(n);
  for i:= 1 to n do begin
    a[i]:= random(100)+1; write(a[i],'  ');
  end;
  repeat
    vymena:=false;
    for i:=1 to n-1 do
      if a[i] > a[i+1] then
        begin
          p:=a[i]; a[i]:=a[i+1]; a[i+1]:=p;
          vymena:=true;
        end;
  until vymena=false;
  writeln;
  writeln('zoradene to je takto');
  for i:=1 to n do
    write(a[i],'  ');
  readln;
end.