двумерный массив, сложно Опции

[Ksander]

9. Разработайте функцию, проверяющую, по возрастанию или убыванию упорядочена указанная строка двумерного массива. Разработайте процедуру сортировки одномерного массива. Напишите программу, которая упорядочивает по возрастанию все строки двумерного массива, которые не упорядочены по убыванию

[Altair]

Сортировка вставками
Это самый простой для понимания метод.
Его суть: создается новый массив, в который мы последовательно вставляем элементы из исходного массива так, чтобы новый массив был упорядоченным.

Код

Program InsertionSort;
uses crt;
Const N=20;
Var mas1,mas2   : array[1..100] of integer;
   i,j  : integer;
Begin
clrscr; randomize;
for i:=1 to N do begin
 mas1[i]:=random(99); write(mas1[i]:3); end;
{сортировка данных}
for i:=1 to N do
begin
 j:=i;
 while (j>1) and (mas2[j-1]>mas1[i]) do
  begin
   mas2[j]:=mas2[j-1];
   j:=j-1;
  end;
 mas2[j]:=mas1[i];
end;
writeln;
{Вывод отсортированного массива}
for i:=1 to N do
 write(mas2[i]:3);
End.