Jog nepamirščiau, pasirašysiu čia masyvo rikiavimo procedūrą su Pascal kalba (liaudyje tiesiog vadinama FPS). Taip pat, gal kas nors per google užklys. Žodžiu.

procedure rikiuoti(n: integer; var masyvas: MAS);
   var i, j, c: integer;
 begin
   for i := 1 to n - 1 do
   begin
     for j := i + 1 to n do
     begin
       if masyvas[j] < masyvas[i] then
       begin
         c := masyvas[i];
         masyvas[i] := masyvas[j];
         masyvas[j] := c;
       end;
     end;
   end;
 end;

n – masyvo elementų skaičius

MAS -masyvo tipas (šiuo atveju MAS = array[1..100] of integer;)