Объяснить процесс сортировки

program sort_kojdogo_ryadka_matruci;
uses crt;
const
     n=3;
     m=3;
var a:array [1..n,1..m] of integer;
    tmp,k,i,j:  integer;
begin
writeln ('Введите матрицу:');
For i:=1 to n do
For j:=1 to m do begin
      write ('a[',i,',',j,']=');
      readln(a[i,j]);
end;
 
ClrScr;
 
Writeln('Матрица:');
for i:=1 to n do
begin
for j:=1 to m do
write(A[i,j], ' ');
writeln;
end;
 
 
for i:=1 to n do
  for j:=1 to m-1 do
   for k:=j+1 to m do   {вот здесь}
    if a[i,j]>a[i,k] then
     begin
      tmp:=a[i,j];
      a[i,j]:=a[i,k];
      a[i,k]:=tmp;       {и до сюда}
     end;
 
 writeln('Результат сортировки: ');
 for i:=1 to n do
  begin
   for j:=1 to m do
   write(a[i,j]:4);
   writeln;
  end;
 readln
end.

//k просто счетчик цикла как i,j, можно переименовать
//tmp-буфер обмена, можно назвать как хотите
for i:=1 to n do //все строки
for j:=1 to m-1 do //все элементы строк до предпоследнего
for k:=j+1 to m do  //сравниваем с теми что впереди
if a[i,j]>a[i,k] then //если впереди есть больше
 begin
  tmp:=a[i,j];//запоминаем текущий
  a[i,j]:=a[i,k];//на его место тот что впереди
  a[i,k]:=tmp; //тот что запомнили, на место того что был впереди
 end;