Сортировка матрицы методом выбора минимального элемента, методом пузырька и методом вставок

const nmax=10;
var a:array[0..nmax-1,0..nmax-1] of integer; //индексы от 0 облегчают их вычисление
    n,i,j,min,buf:integer;
begin
//ввод матрицы
repeat
randomize;
write('Размер матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
//сортировка матрицы выбором минимального
//как одномерный массив от 0 до n*n-1
//индекс в двумерном массиве определяется как [i div n,i mod n]
for i:=0 to n*n-2 do//от первого до предпоследнего
 begin
  min:=i;//начальный номер минимального
  for j:=i+1 to n*n-1 do // смотрим впереди
  if a[j div n,j mod n]<a[min div n,min mod n] then min:=j; //находим номер минимального
  if a[min div n,min mod n]<a[i div n,i mod n] then //если минмальный меньше текущего
   begin
    buf:=a[i div n,i mod n];  //обмениваем их местами
    a[i div n,i mod n]:=a[min div n,min mod n];
    a[min div n,min mod n]:=buf;
   end;
 end;
writeln('Отсортированная матрица');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j]:3);
  writeln;
 end;
end.

const nmax=10;
var a:array[0..nmax-1,0..nmax-1] of integer; //индексы от 0 облегчают их вычисление
    n,i,j,buf:integer;
begin
repeat
randomize;
write('Размер матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
//сортировка матрицы пузырьком
for i:=0 to n*n-2 do//от первого до предпоследнего
for j:=i+1 to n*n-1 do // смотрим впереди
if a[i div n,i mod n]>a[j div n,j mod n] then //если первый больше второго
 begin
  buf:=a[i div n,i mod n];  //обмениваем их местами
  a[i div n,i mod n]:=a[j div n,j mod n];
  a[j div n,j mod n]:=buf;
 end;
writeln('Отсортированная матрица');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j]:3);
  writeln;
 end;
end.

const nmax=10;
var a:array[0..nmax-1,0..nmax-1] of integer; //индексы от 0 облегчают их вычисление
    n,i,j,p,buf:integer;
begin
repeat
randomize;
write('Размер матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
//сортировка матрицы вствками
for i:=1 to n*n-1 do//от второго до последнего
 begin
  buf:=a[i div n,i mod n] ;//запрминаем очередной элемент
  j:=0;//смотрим что слева от него
  while (j<i)and(buf>a[j div n,j mod n])do inc(j);//пока все меньше данного идем вперед
  if j<i then
   begin
    for p:=i-1 downto j do//нашли меньший, сдвигаем массив от этого элемента-1
    a[(p+1)div n,(p+1)mod n]:= a[p div n,p mod n];//на 1 вправо
    a[j div n,j mod n]:=buf;//вставляем найденный элемент на место
   end;
  end;
writeln('Отсортированная матрица');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j]:3);
  writeln;
 end;
end.