написать комментарий к каждой строчке

[topchik]

program lab3;

const nmax=10;

type matrix=array[0..nmax-1,0..nmax-1] of integer;

var n:integer;
a:matrix;

procedure inputn(var n:integer); //Ввод размера матрицы
begin {inputn}
repeat
writeln('Введите размер квадратной матрицы (1<=n<=10):');
readln(n);
until n<=10;
end; {inputn}

procedure printM(a:matrix; n:integer); //Вывод матрицы на экран
var i,j:integer;
begin {printM}
for i:=0 to n-1 do begin
for j:=0 to n-1 do
write(a[i,j]:4);
writeln;
end;
end; {printM}

procedure randommatrix(var a:matrix; n:integer); //Заполнение матрицы СЧ
var i,j:integer;
begin {randommatrix}
randomize;
for i:=0 to n-1 do
for j:=0 to n-1 do
a[i,j]:=random(sqr(n)-1)+1;
end; {randommatrix}

procedure Coordinates(k, n :integer; var i, j :integer); //Вычисление координат элемента в матрице,заполненной по схеме
var m,p:integer;
begin {Coordinates}
m:=n div 2;
if n mod 2 = 0 then
if ((n*n)/2 > k) then begin
i := n - 1 - k div m;
if i mod 2 = 0 then
j := n - 1 - k mod n
else
j := k mod n;
end
else begin
i := k div m - n;
if i mod 2 = 0 then
j := n - 1 - k mod n
else
j := k mod n;
end
else begin
if ((((n*n) div 2)+m) >= k) then begin
i := n - 1 - k div (m + 1);
if i mod 2 <> 0 then
j := n - k mod (n+1)
else
j := k mod (n+1);
end
else begin
i := (k - ((m + 1) * n)) div m;
if i mod 2 <> 0 then begin
p:=k mod m;
if p <> 0 then
j := m + p
else
j:= n-1;
end
else begin
p:=k mod m;
if p <> 0 then
j := n - p
else
j:=m+1;
end;
end;
end;
end; {Coordinates}

procedure fillmatrix(var a: matrix ; n:integer);
var i,j,k:integer;
begin {fillmatrix}
for k:=0 to n*n-1 do begin
coordinates(k,n,i,j);
//writeln(' ',k:3,i:3,j:3);
a[i,j]:=k;
end;
end; {fillmatrix}

procedure InsertSortEnd(var a: matrix; n:integer); //Сортировка вставками с конца массива
var
i, j, i1, j1, i2, j2, m, buf, k: integer;
begin {InsertSortEnd}
for k := n*n-2 downto 0 do begin
coordinates(k,n,i,j);
buf := a[i,j];
m := k + 1;
coordinates(m,n,i1,j1);
while (m <= (n*n-1)) and (a[i1,j1] < buf) do
begin
coordinates(m-1,n,i2,j2);
//writeln(i2,' ',j2);
a[i2,j2] := a[i1,j1];
m := m + 1;
coordinates(m,n,i1,j1);
end;
//writeln(i2,' ',j2);
a[i2,j2] := buf;
end;
end; {InsertSortEnd}

begin
inputn(n);
//writeln('Заполненная по схеме матрица имеет вид:');
//fillmatrix(a,n);
//printM(a,n);
randommatrix(a,n);
writeln('Исходная матрица имеет вид:');
printM(a,n);
InsertSortEnd(a,n);
writeln('Отсортированная матрица имеет вид:');
printM(a,n);
end.