Расположить элементы строк матрицы в порядке возрастания элементов, если номера строк четные, и в порядке убывания элементов, если номера строк - Pascal ABC - Ответ 3765843

Program VR;
   const n=5;
         m=7;
var
Arr:array[1..n,1..m] of integer;
a,b,c,i,j:integer;
Begin                                    //формируем массив
for i:=1 to n do  begin
for j:=1 to m do begin
Arr[i,j]:=Random(31)-10;
end;
end;
for i:=1 to n do  begin              //выводим начальный массив
for j:=1 to m do begin
begin
Write('a[',i,',',j,']=',Arr[i,j],' ');
end;
end;
Writeln();
end;
writeln();
 
for i:=1 to n do  begin
if (i mod 2=0)  then            //проверяем на четность строку
begin
For b:=1 to m-1 do          //если четное, то сортируем пузырьком по возрастанию
For j:=1 to m-b do
   if (Arr[i,j]>Arr[i,j+1]) then begin
   c:=Arr[i,j];
   Arr[i,j]:=Arr[i,j+1];
   Arr[i,j+1]:=c;
   end;
end
else                            //иначе если нечетные, то сортируем по убыванию
For b:=1 to m-1 do
For j:=1 to m-b do
   if (Arr[i,j]<Arr[i,j+1]) then begin
   c:=Arr[i,j];
   Arr[i,j]:=Arr[i,j+1];
   Arr[i,j+1]:=c;
   end;
 end;
 for i:=1 to n do  begin                //выводим строку
for j:=1 to m do begin
begin
Write('a[',i,',',j,']=',Arr[i,j],' ');
end;
end;
Writeln();
end;
end.