Algoritmizace #9

// EXE: http://machalda.cekuj.net/d.php?f=34

program Bublinky;
var pole:array[1..10] of integer;
    rozmer:integer;
    index:integer;
    pomo:integer;

procedure nactiPole();
begin
     writeln('#');
     writeln('#       Zadej rozmer pole');
     write('#->       rozmer:');
     readln(rozmer);
     writeln('#');
     for index:=1 to rozmer do
     begin
          writeln('#        Zadej ',index,'. prvek');
          write('#->       prvek:');
          readln(pole[index]);
          writeln('#');
     end;
end;

procedure vypisPole();
begin
     writeln('#');
     for index:=1 to rozmer do
     begin
          writeln('#        ',index,'. prvek je ',pole[index],' ...');
     end;
end;

procedure zbublinuj();
var indexA:integer;
    indexB:integer;
    pom:integer;
begin
     for indexA:=2 to rozmer do
     begin
          for indexB:=rozmer downto 2 do
          begin
               if pole[indexB - 1] < pole[indexB] then
               begin
                    pom:= pole[indexB - 1];
                    pole[indexB - 1]:=pole[indexB];
                    pole[indexB]:=pom;
               end;
          end;
     end;
end;

begin
     writeln('############################## BEGIN ##############################');
     repeat
     writeln('#');
     writeln('#          1| Nacti pole ');
     writeln('#          2| Vypsat pole ');
     writeln('#          3| Setridit ');
     writeln('#          0| Ukocit program ');
     writeln('#____________________________');
     write('#->          volba: ');
     readln(pomo);
     case pomo of
     1: nactiPole();
     2: vypisPole();
     3: zbublinuj();
     else pomo := 0;
     end;
     until pomo = 0;
     writeln('############################### END ###############################');
end.