Образовать матрицу C, переписав элементы матрицы B каждой строки в обратном порядке

Const n=12; m=12; k1=-50; k2=50;
Type matr =array[1..n,1..m] of integer;
   mas = array[1..m] of integer;
Var
   a:mas;
   b,c:matr;
   i,j,min,k,r:integer;
Begin
          {1111111111}
   writeln('Matrica "B":');
  for i:=1 to n do
Begin
  for j:=1 to m do
Begin
   b[i, j]:= trunc((k2-k1)* random + k1);
   write(b[i,j]:5);
end;
   writeln;
End;
   writeln;
   
          {2222222222}
   writeln('Massiv "A":');
  for i:=1 to n do
begin
   k:=1;
  while b[k,i]<0 do
   inc(k);
   min:=b[k,i];
  for j:=1 to m do
begin
  if b[j,i]>0 then
  if b[j,i]< min then
    min:=b[j,i];
end;
   a[i]:=min;
end;
  for i:=1 to m do
   write(a[i]:5);
   writeln;
   writeln;
   writeln('Matrica "C":');
  for i:=1 to n do
Begin
  for j:=1 to m do
begin
   r:=b[i,j];
   b[i,j]:=b[i,n+1-j];
   b[i,n+1-j]:=r;
  write(b[i,j]:5);
end;
writeln;
end;
end.

  writeln('Matrica "C":');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      c[i, j] := b[i, m + 1 - j];
      write(c[i, j]:5);
    end;
    writeln;
  end;

const
  n = 12; m = 12; k1 = -50; k2 = 50;
 
type
  matr = array[1..n, 1..m] of integer;
  mas = array[1..m] of integer;
 
var
  a: mas;
  b, c: matr;
  i, j, min, k, r: integer;
 
begin
          {1111111111}
  writeln('Matrica "B":');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      b[i, j] := trunc((k2 - k1) * random + k1);
      write(b[i, j]:5);
    end;
    writeln;
  end;
  writeln;
  
          {2222222222}
  writeln('Massiv "A":');
  for i := 1 to n do
  begin
    k := 1;
    while b[k, i] < 0 do
      inc(k);
    min := b[k, i];
    for j := 1 to m do
    begin
      if b[j, i] > 0 then
        if b[j, i] < min then
          min := b[j, i];
    end;
    a[i] := min;
  end;
  for i := 1 to m do
    write(a[i]:5);
  writeln;
  writeln;
  
  writeln('Matrica "C":');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      c[i, j] := b[i, m + 1 - j];
      write(c[i, j]:5);
    end;
    writeln;
  end;
end.