Pascal užduotis

Darau pascal užduotį, bet jos užbaigti negaliu, nes man meta „peržengti rėžiai", dėl rikiavimo procedūros. Gal turit minčių, kaip man ją padaryti, jog nebūtų klaidų?

program Baldai;
   var F : text;
       n, i, s, max, nr : integer;
       t : string[12];
       M : array[1..99, 1..3] of integer;

   procedure skaityti;
   begin
       Assign(F, 'txt/bald.txt');
       Reset(F);
           ReadLn(F, n);
           for i := 1 to n do begin
               Read(F, t);
               for s := 1 to 3 do Read(F, M[i, s]);
               ReadLn(F);
           end;
       Close(F);
   end;
   procedure skaiciuoti;
   begin
       for i := 1 to n do begin
           s := M[i, 1] + M[i, 2] + M[i, 3];
           if s > max then begin
               max := s;
               nr := i;
           end;
       end;
   end;
   procedure rikiuoti;
   begin
       for i := n downto 1 do begin
           if (M[i, 1] + M[i, 2] + M[i, 3]) >= (M[i-1, 1] + M[i-1, 2] + M[i-1, 3]) then begin // butent del sios vietos man ir gaunasi ta klaida
               {
               for s := 1 to 3 do arr[s] := M[i-1, s];
               for s := 1 to 3 do M[i-1, s] := M[i, s];
               for s := 1 to 3 do M[i, s] := arr[s];
               //}
           end;
       end;
   end;
   procedure rasyti;
   begin
       Assign(F, 'txt/baldrez.txt');
       Rewrite(F);
           Write(F, 'užsakymas ', nr, ' ');
           for s := 1 to 3 do Write(F, M[nr, s], ' ');
           WriteLn(F);
           WriteLn(F);
           for i := 1 to n do begin
               Write(F, 'užsakymas ', i, ' ');
               for s := 1 to 3 do Write(F, M[i, s], ' ');
               WriteLn(F);
           end;
       Close(F);
   end;
begin
   skaityti;
   skaiciuoti;
   rikiuoti;
   rasyti;

   ReadLn;
end.

Idomiai tu cia rikiuoji.burbulo rikiavima naudok,ir is gautu reiksmiu vel surikiuok tuo paciu metodu.

Pascal : http://lt.wikipedia.org/wiki/Burbulo_rikiavimo_algoritmas

bet neoptimizuotas budas,gali kibt del sekundziu,bet gal praeis.

Idomiai tu cia rikiuoji.burbulo rikiavima naudok,ir is gautu reiksmiu vel surikiuok tuo paciu metodu.

Pascal : http://lt.wikipedia....vimo_algoritmas

bet neoptimizuotas budas,gali kibt del sekundziu,bet gal praeis.

Aš ta rikiavimo algoritma ir norėjau naudot, tik va niekaip neina baigti, nes meta „peržengti rėžiai"

Galit nebekreipt dėmesio į temą :D Perrašiau kodą ir viskas veikia :)