Написать комментарии, поясняющие принцип сортировки. (Метод сортировки - вставками)

uses crt; 
const n=5; 
var a:array[1..5,1..5] of integer; 
 i,j,k:byte; 
 b:integer; 
begin 
 writeln('Исходный массив'); 
 for i:=1 to 5 do 
 begin 
 for j:=1 to 5 do 
 begin 
 a[i,j]:=random(100); 
 write(a[i,j]:4); 
 end; 
 writeln; 
 end; 
 k:=n div 2+1; 
 for i:=2 to n do 
begin 
 b:=a[k,i]; 
 j:=i-1; 
 while (j>=1) and (a[k,j]>b) do 
begin 
 a[k,j+1]:=a[k,j]; 
 j:=j-1; 
end; 
 a[k,j+1]:=b; 
end; 
 Writeln('Сортировка средней строки:'); 
 for i:=1 to 5 do 
 begin 
 for j:=1 to 5 do 
 write(a[i,j]:4); 
 writeln 
end; 
end.

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,k:byte;
    b:integer;
begin
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
   end;
  writeln;
 end;
k:=n div 2+1; //номер средней строки=3
for i:=2 to n do
 begin
  b:=a[k,i];//запоминаем очередной элемент строки
  j:=i-1; //смотрим что слева от него
  while (j>=1) and (a[k,j]>b) do//пока все больше него и не начало
   begin
    a[k,j+1]:=a[k,j];//сдвигаем элемент на 1 вправо
    j:=j-1;//идем назад
   end;
  a[k,j+1]:=b;//вставляем найденный (меньший) элемент на место
 end;
writeln('Сортировка средней строки');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
end.