Sortowanie przez wybieranie - Delphi

Nie będziemy się już rozpisywali od podstaw. Podamy sam algorytm w Delphi. Deklarować zmienne pewnie już każdy umie. Oto kod:

for j := 1 to n - 1 do
    begin
        Min := j;

        for i := j + 1 to n do
            if Tab[i] < Tab[Min] then
                Min := i;

        Temp := Tab[Min];
        Tab[Min] := Tab[j];
        Tab[j] := Temp;
    end;

Gdyby coś było niezrozumiałe to proszę pisać.