Строку матрицы с максимальным по модулю элементом в К-м столбце переставить с К-й строкой

var
 arr: array[1..100, 1..100] of integer;
 arr1: array[1..100, 1..100] of integer;
 i, k, i1, k1, rz, n, m, n1, m1: integer;
begin
 rz:=0;
 readln(n, m);
  for i:=1 to n do
   begin
    for k:=1 to m do
     begin
      arr[i, k]:=random(100);
      write(arr[i, k]:4);
     end;
    writeln;
   end;
 readln(n1, m1);
  for i1:=1 to n1 do
   begin
    for k1:=1 to m1 do
     begin
      arr1[i1, k1]:=random(100);
      write(arr1[i1, k1]:4);
     end;
    writeln;
   end;
  for i:=1 to n do
   for k:=1 to m do
    for i1:=1 to n1 do
     for k1:=1 to m1 do
      rz:=arr[i, k]-arr1[i1, k1];
 writeln(rz);
end.

var
 arr: array[1..100, 1..100] of integer;
 arr1: array[1..100, 1..100] of integer;
 i, k, i1, k1, n, m, n1, m1: integer;
 summ, summ1, rz: longint;
begin
 rz:=0;
 summ:=0;
 summ1:=0;
 readln(n, m);
  for i:=1 to n do
   begin
    for k:=1 to m do
     begin
      arr[i, k]:=random(100);
      write(arr[i, k]:4);
      summ:=summ+arr[i, k];
     end;
    writeln;
   end;
 writeln('Сумма элементов первой матрицы: ', summ);
 readln(n1, m1);
  for i1:=1 to n1 do
   begin
    for k1:=1 to m1 do
     begin
      arr1[i1, k1]:=random(100);
      write(arr1[i1, k1]:4);
      summ1:=summ1+arr1[i1, k1];
     end;
    writeln;
   end;
 writeln('Сумма элементов второй матрицы: ', summ1);
 rz:=summ-summ1;
 writeln('Разность обеих матриц: ', rz);
end.

for i:=1 to n do
for j:=1 to m do
c[i,j]:=a[i,j]-b[i,j];

var a,b,c:array[1..20,1..20] of integer;