В матрице строку с наибольшей суммой элементов записать в обратном порядке

const n=4;m=6;
type mas=array[1..m] of integer;
     matr=array[1..n] of mas;
var i,smax,ismax:integer;
    a:matr;
     function sum(x:mas):integer;
     var j,s:integer; 
      begin
       s:=0;
       for j:=1 to m do s:=s+x[j];
       sum:=s
      end;    
     procedure in_matr(var x:matr);
     var i,j:integer;
      begin
       for i:=1 to n do
        for j:=1 to m do
         x[i,j]:=-10+random(21)
      end;
     procedure out_matr(var x:matr;s:string);
     var i,j:integer;
      begin
       writeln(s);
       for i:=1 to n do
        begin
         for j:=1 to m do write(x[i,j]:4);
         writeln
        end 
      end;
     procedure obr(var x:mas);
     var j,tmp:integer;
      begin
       for j:=1 to m div 2 do begin tmp:=x[j];x[j]:=x[m-j+1];x[m-j+1]:=tmp end
      end;
begin
 in_matr(a);out_matr(a,'Исходная матрица со строчками и столбцами:');
 smax:=sum(a[1]);ismax:=1;
 for i:=2 to n do if sum(a[i])>smax then begin smax:=sum(a[i]);ismax:=i end;
 writeln('Строка с максимальной суммой элементов: ',ismax);
 obr(a[ismax]);
 out_matr(a,'Полученная матрица со строчками и столбцами:')
end.

procedure obr(var x:mas);
var i, j, t: Integer;
begin
  i:=1; j:=m;
  while i<j do begin
    t:=x[i]; x[i]:=x[j]; x[j]:=t; Inc(i); Dec(j);
  end;
end;

procedure obr(var x:matr; k: Integer);
var i, j, t: Integer;
begin
  i:=1; j:=m;
  while i<j do begin
    t:=x[k,i]; x[k,i]:=x[k,j]; x[k,j]:=t; Inc(i); Dec(j);
  end;
end;

type
  mas=array[1..m] of integer;
  matr=array[1..n] of mas;
...
procedure obr(var x:mas);
...
var
  a: matr;
...
  obr(a[ismax]);  { строка 40 }

type matr: array [1..n,1..m] of Integer;
 
procedure obr(var x: array of Integer);
var i, j, t: Integer;
begin
  i:=Low(x); j:=High(x);
  while i<j do begin
    t:=x[i]; x[i]:=x[j]; x[j]:=t; Inc(i); Dec(j);
  end;
end;
...
  obr(a[ismax]);  { строка 40 }

const n=4;m=6;
type mas=array[1..m] of integer;
     matr=array[1..n] of mas;
var i,smax,ismax:integer;
    a:matr;
     function sum(x:mas):integer;
     var j,s:integer; 
      begin
       s:=0;
       for j:=1 to m do s:=s+x[j];
       sum:=s
      end;    
     procedure in_matr(var x:matr);
     var i,j:integer;
      begin
       for i:=1 to n do
        for j:=1 to m do
         x[i,j]:=-10+random(21)
      end;
     procedure out_matr(var x:matr;s:string);
     var i,j:integer;
      begin
       writeln(s);
       for i:=1 to n do
        begin
         for j:=1 to m do write(x[i,j]:4);
         writeln
        end 
      end;
     procedure obr(var x:mas);
     var j,tmp:integer;
      begin
       for j:=1 to m div 2 do begin tmp:=x[j];x[j]:=x[m-j+1];x[m-j+1]:=tmp end
      end;
begin
 in_matr(a);out_matr(a,'Исходная матрица со строчками и столбцами:');
 smax:=sum(a[1]);ismax:=1;
 for i:=2 to n do if sum(a[i])>smax then begin smax:=sum(a[i]);ismax:=i end;
 writeln('Строка с максимальной суммой элементов: ',ismax);
 obr(a[ismax]);
 out_matr(a,'Полученная матрица со строчками и столбцами:')
end.