Зеркальная перестановка столбцов матрицы относительно вертикальной оси

const
  rows = 4;
  cols = 5;
begin
  var a : array [1..rows,1..cols] of Integer;
  for var row := 1 to rows do
    for var col := 1 to cols do
      a[row, col] := Random(10);
  WriteLn('До'); for var row := 1 to rows do
    begin
      for var col := 1 to cols do Write(a[row,col]:2);
      WriteLn;
    end;
  for var row := 1 to rows do
    for var col := 1 to cols div 2 do
      swap(a[row, col], a[row, cols+1-col]);
  WriteLn('После'); for var row := 1 to rows do
    begin
      for var col := 1 to cols do Write(a[row,col]:2);
      WriteLn;
    end;
  for var row := 1 to rows do
    begin
      var (left, right) := (1, cols);
      while left < right do
        begin
          swap(a[row, left], a[row, right]);
          left += 1; right -= 1;
        end;
    end;
  WriteLn('После 2'); for var row := 1 to rows do
    begin
      for var col := 1 to cols do Write(a[row,col]:2);
      WriteLn;
    end;
end.

uses crt;
var
a: array[1..30,1..30] of real;max:real;
i,j,n,m,k,speedi,speedj,h,l: integer; flag:boolean;
begin clrscr;
write('Введите количество строк '); read(n);
write('Введите количество столбцов ' ); read(m);
 
for I:=1 to n do
for j:=1 to m do begin
write(' A[',i,',',j,']=');
readln(A[i,j]);
end;
writeln('Данная матрица*');
for I:=1 to n do begin
for j:=1 to m do
write (A[i,j]:8:3); writeln;
writeln;end;
h:=0;
for i:= 1 to n do begin
max:=a[i,1];
 speedi:=i ;
 speedj:=1;
 for j:=2 to m do
 if a[i,j]<max then
 begin
 max:=a[i,j];
 speedi:=i ;
 speedj:=j;
 end;
 K:=1;
 flag:=true;
 repeat
 if (a[k,speedj]>max)  then flag:=false;
 inc(k);
 until(k>n) or (flag=false);
 if flag then begin  writeln('Искомый элемент -> D[',speedi,',',speedj,']');
 inc(h);end;
 end;
 if h=0 then writeln('В матрице нет седловых точек*');
 readkey;end.

uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
procedure PerStb(var mt:matr;x,y:byte);
var i,j:byte;
    b:integer;
begin
for j:=1 to y div 2 do
for i:=1 to x do
 begin
  b:=mt[i,j];
  mt[i,j]:=mt[i,y-j+1];
  mt[i,y-j+1]:=b;
 end;
end;
var a:matr;
    n,m,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(50)+1;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
PerStb(a,n,m);
writeln('Перестановка столбцов относительно вептикальной оси:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.