Sortowanie bąbelkowe - Delphi

Zasada działania tego sortowania została wytłumaczone w poprzedniej notce. Teraz postaramy się pokazać sposób użycia go w Delphi. Kod może wyglądać tak:

{pod wyrazem Implementation należy zadeklarować odpowiednie zmienne}
var
    i, j, LiczbaPol, Temp : Integer;

{teraz przechodzimy do algorytmu}

begin
{najpierw należy podać ilość pól w tablicy, u nas są to 4 pola - co widać w poprzednim przykładzie}
    LiczbaPol := 4; {ilość pól dla tablicy [1..4]}

{teraz sortowanie metodą bąbelkową}
for j := 0 to LiczbaPol - 2 do
    begin
        for i := 0 to LiczbaPol - 2 do
            begin
                if Tablica[i] > Tablica[i+1] then
                    begin
                        Temp := Tablica[i];
                        Tablica[i] := Tablica[i+1];
                        Tablica[i+1] := Temp;
                     end;
             end;
    end;


end;

{należy pamiętać, że w miejsce Tablicy należy wstawić nazwę tej, która ma być posortowana}

Mamy nadzieję, że w/w kod jest jasny i zrozumiały. W przypadku niejasności prosimy o pisanie w ShoutBoxie. Postaramy się rozwiać wszystkie wątpliwości.