Двумерные массивы, 3*4

uses crt;
const m=3;
      n=4;
var a:array[1..m,1..n] of integer;
    i,j,mx,jmx,x:integer;
begin
clrscr;
writeln('Введите элементы массива:');
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
writeln;
mx:=a[1,1];
jmx:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j]>mx then
 begin
  mx:=a[i,j];
  jmx:=j;
 end;
writeln('Максимальный элемент=',mx,' в столбце ',jmx);
if jmx=n then writeln('Максимальный в последнем столбце, обмена нет')
else
 begin
  for i:=1 to m do
   begin
    x:=a[i,jmx];
    a[i,jmx]:=a[i,n];
    a[i,n]:=x;
   end;
  writeln('Массив после обмена столбцов:');
 end;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
readln
end.