Столбец массива, содержащий максимальный элемент, поменять местами со вторым столбцом

const
n = 4;
m = 5;
 
var
i, j, ind: integer;
max, temp: real;
a: array[1..n, 1..m] of real;
begin
randomize;
 writeln('Massiv 1');
  for i:= 1 to n do  
  begin
    for j:= 1 to m do
    begin
    a[i, j]:= Random(200) / 10 - 10;
    write(a[i,j]:8:2);
    end;
  writeln;
  end;
  for i:= 1 to n do
    for j:=1 to m do
    begin
    if a[i,j] > max then
      begin
      max:= a[i,j];
      ind:= j;
      end;
    end;
 if ind <>2 then  
 begin
 for i:= 1 to m do
   begin
   temp:= a[i, 2];
   a[i,2]:= a[i, ind];
   a[i,ind]:= temp;
   end;
 end;
 writeln('Max = ', max:8:2);  
 writeln('Massiv 2');
  for i:= 1 to n do
  begin
    for j:= 1 to m do write(a[i,j]:8:2);
  writeln;
  end;
readln;
 
end.

uses crt;
const
n = 4;
m = 5;
var i, j, ind: integer;
    max, temp: real;
a: array[1..n, 1..m] of real;
begin
clrscr;
randomize;
writeln('Massiv 1');
for i:= 1 to n do  
  begin
    for j:= 1 to m do
      begin
        a[i, j]:=10*random;
        write(a[i,j]:6:2);
      end;
    writeln;
  end;
max:=a[1,1];ind:=1;
for i:= 1 to n do
for j:=1 to m do
if a[i,j] > max then
   begin
     max:= a[i,j];
     ind:= j;
   end;
writeln('Max el= ',max:5:2,' v stolbce ',ind);
if ind=2 then
  begin
   writeln('Perestanovka ne vozmozna!');
   readln;
   exit;
  end
else
for i:=1 to n do
  begin
    temp:=a[i,2];
    a[i,2]:=a[i,ind];
    a[i,ind]:=temp;
  end;
writeln('Massiv 2');
for i:= 1 to n do
  begin
    for j:= 1 to m do
    write(a[i,j]:6:2);
    writeln;
  end;
readln
end.