Обясните задачу по Двухмерному массиву

[Андрей77777]

Помогите прошу (задача по оброботке Двухмерному массиву)
Нужно найти максим эллементы каждого рдка из которых создать массив разместив его элементы в порядке уменьшения

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

program lab15_2;
uses crt;
const
n=6;
m=5;
var r:array[1..n,1..m] of integer;
max:array[1..n] of integer;
i,j:integer;
begin
clrscr;
Randomize;
for i:=1 to n do
for j:=1 to m do
r[i,j]:=100-random(200);
for i:=1 to m do
begin
for j:=1 to m do
write(r[i,j]:3,'');
writeln(' ');
end;
writeln('-----------------');
for i:=1 to n do
begin
max[i]:=r[i,1];
for j:=2 to m do
if r[i,j]>max[i] then
begin
max[i]:=r[i,j];
end;
writeln('max[',i,']=',max[i]);
end;
end.

[domovou]

Андрей77777, код выделяй решеткой (#)

разместив его элементы в порядке уменьшения

вот это в задачи нету!

program lab15_2;
uses crt;
const
     n=6;
     m=5;
var r:array[1..n,1..m] of integer;  //двуцмерный массив
    max:array[1..n] of integer;  //одномер массив мах элементов
    i,j:integer;
begin
clrscr; //очистка экрана
Randomize; //каждый раз генерация новых чисел
for i:=1 to n do  //от 1 до  n(6)
    for j:=1 to m do  // от 1 до 5
        r[i,j]:=100-random(200); // r[i,j] присваиваем число в диапазоне -99 тире 100
//печать массива
for i:=1 to m do //!!!!ТУТ ДОЛЖНО БЫТЬ  N  скорей всего
    begin
    for j:=1 to m do
        write(r[i,j]:3,'');   //выводим на экран элемент
    writeln(' '); //можно просто writeln;
    end;
writeln('-----------------');
//находим мах элемент в каждой  строке
for i:=1 to n do
    begin
    max[i]:=r[i,1]; //мах присваиваем начало  строки
    for j:=2 to m do  //перебор ведем со 2 столбца
        if r[i,j]>max[i] then //если элемент больше мах тогда
           begin  //не обязательно
           max[i]:=r[i,j]; //присваиваем мах этот элемент
           end;   //не обязательно
           //бегин енд испол когда можно испол одно действие,
           //а требуется выполнить несколько
           //так что отсюда его можно убрать
    writeln('max[',i,']=',max[i]);  //выыводим на экран его
    end;
end.