Опять Паскаль, вопрос!!!! Опции

[What_Ever]

Как можно сделать метод "пузырька" для двухмерной матрицы?! помогите, я замучилась писать эту прогу по ночам!!!!

[What_Ever]

сквозная. сортировать все элементы. вот вортировка по строкам, что делать дальше не знаю! надо запихать в for, но как и что не могу понять!

uses crt;
var a:array[1..100,1..100]  of integer;
i,j,n,k,l,m,b,t:integer;
begin
randomize;
clrscr;
writeln('vvedite n');
readln(n);
writeln('vedite m');
readln(m);
for i:=1 to n do
   for j:=1to m do
      a[i,j]:=random(100)-50;
for i:=1 to n do
   begin
      for j:=1 to m do
      write (' ',a[i,j]:3);
      writeln;
    end;
for i:=1 to m do
   begin
      for b:=1 to n-1 do
          for j:=1 to m do
             if a[j,b]>a[j,b+1] then
                begin
                  t:=a[j,b];
                  a[j,b]:=a[j,b+1];
                  a[j,b+1]:=t;
                 end;
    end;
 writeln;
 writeln;
for i:=1 to n do
   begin
      for j:=1 to m do
         write (' ',a[i,j]:3);
            writeln;
   end;
readln;
end.

М

теги.... мисс_граффити