Составить программу упорядочения по убыванию элементов каждой строки двумерного массива - PascalABC.NET

Формулировка задачи:

Составить программу упорядочения по убыванию элементов каждой строки двумерного массива С[1.5, 1..4]. Массив заполнен случайными вещественными числами от -20 до 20.

Решение задачи: «Составить программу упорядочения по убыванию элементов каждой строки двумерного массива»

Листинг программы

const n=5;m=4;
var c:array[1..n,1..m] of double; i,j:integer;
 
procedure Sort(l:integer); var i,j:integer; double;
begin
 for i:=1 to m do for j:=1 to m do if c[l,i]<c[l,j] then begin k:=c[l,i];c[l,i]:=c[l,j];c[l,j]:=k;end;
end;
 
begin
 for i:=1 to n do begin
  for j:=1 to m do begin
   c[i,j]:=-20+random(80)/4; Write(c[i,j]:5:2);
  end writeln;
 end writeln;
 for i:=1 to n do Sort(i);
 for i:=1 to n do begin
  for j:=1 to m do begin
   Write(c[i,j]:5:2);
  end writeln;
 end writeln;
 readln;
end.

Объяснение кода листинга программы

Объявлены константы n=5 и m=4, а также двумерный массив c:array[1..n,1..m] of double.
В основной части программы для каждого элемента массива c случайным образом установлено значение от -20 до 20 с шагом 0,5.
Вызов процедуры Sort(i) для каждого i-го элемента массива c (с 1-го по n-й) сортирует элементы каждой строки массива по убыванию.
В цикле выводятся значения каждого элемента массива c на экран.
В конце программы ожидается ввод пользователя для завершения работы программы.