матрица A(m,n)

[Trofik9]

Ввести матрицу A(m,n). Переставить строки матрицы в соответствии с возрастанием элементов первого столбца. вывести исходную и преобразованную матрицы.
Пожалуйста пишите весь код

[ROMA2PVT]

Пожалуйста пишите весь код

Весь код во фрилансе напишут.

for j:=1 to n do
  for i:=1 to n-1 do
 if a[i,1]>a[i+1,1] then
 for l:=1 to n do
 begin
  buf := a[i,l];
  a[i,l]:=a[i+1,l];
  a[i+1,l]:=buf;
 end;

[Trofik9]

Сообщение от ROMA2PVT

for j:=1 to n do
  for i:=1 to n-1 do
 if a[i,1]>a[i+1,1] then
 for l:=1 to n do
 begin
  buf := a[i,l];
  a[i,l]:=a[i+1,l];
  a[i+1,l]:=buf;
 end;

можеш обьяснить все переменные а то я не пойму что к чему

[ROMA2PVT]

Uses
  CRT;
Const
   max=100;
var
  a:array [1..max,1..max] of integer;
  i,j,k,l,buf,n,m:integer;
begin
 Clrscr;
 randomize;
 repeat
 write('Введите количество строк: ');
 readln(n);
 until n in [1..max];
 repeat
 write('Введите количество столбцов: ');
 readln(m);
 until m in [1..max];
 writeln('Исходная матрица');
 for i:=1 to n do
    begin
      for j:=1 to m do
        begin
           a[i,j]:=random(10)-3;
           write(a[i,j]:2,' ');
        end;
        writeln;
    end;

 for j:=1 to m do
  for i:=1 to n-1 do
     if a[i,1]>a[i+1,1] then
        for l:=1 to m do
            begin
               buf:= a[i,l];
               a[i,l]:=a[i+1,l];
               a[i+1,l]:=buf;
            end;
            
   writeln;
 writeln('Результирующая матрица');
 for i:=1 to n do
   begin
     for j:=1 to m do
          begin
             write(a[i,j]:2,' ');
          end;
      writeln;
   end;
   readkey;
end.

[[Danil]]

Рома извините можете тоже помочь у нас просто практика - это мой одногруппник (Trofik9)!
если не тяжело...