Прокомментировать код

program vv;
uses crt;
const
  n=4;
var
  a: array[1..n,1..n] of integer;
  i,j,t: integer;
begin
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  for i:=2 to n do
    for j:=n downto i do
    begin
 
      if a[j,n-j+1]>a[j-1,n-j+2] then
      begin
        t:=a[j,n-j+1];
        a[j,n-j+1]:=a[j-1,n-j+2];
        a[j-1,n-j+2]:=t;
      end;
    end;
 
  writeln('Полученный массив :');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
end.

program vv;
uses crt;
const
  n=4;  //размер матрицы
var
  a: array[1..n,1..n] of integer;//матрица целых чисел
  i,j,t: integer; //прочие целочисленные переменные
begin
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;//элементы массива случайные целые числа
                           //из интервала [1..99]
      write(a[i,j]:4);
    end;
    writeln;
  end;
  //сортировка пузырьком элементов побочной диагонали по убыванию
  for i:=2 to n do
  for j:=n downto i do
   begin
     if a[j,n-j+1]>a[j-1,n-j+2] then//если элемент меньше того что впереди
      begin
        t:=a[j,n-j+1];
        a[j,n-j+1]:=a[j-1,n-j+2];//обмениваем их местами
        a[j-1,n-j+2]:=t;
      end;
    end;
  writeln('Полученный массив :');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
end.

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