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

uses crt;
const
n=10;
var a,b:array [1..n]of integer;
c:array [1..n*2] of integer;
i,k:byte;
begin
randomize
for i:=1 to n do
begin
a[i]:=random(20);
b[i]:=random(20);
end;
for k:=1 to 2*n-1 do
for i:=1 to n do
begin
c[k]:=a[i];
write(c[k]:2);
c[k+1]:=b[i];
write(c[k]:2);
end;
end.

uses crt;
const
n=10;
var a[1..n,1..n] of integer;
max,stolb,rem:integer
i,j,k:integer;
begin
max:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(30);
write(a[i,j]:2);
end;
writeln;
end;
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then 
begin
max:=a[i,j];
stolb:=j; {запоминаем столбец максимума}
end;
for i:=1 to n do
begin
rem:=a[k,1];
a[k,1]:=a[k,stolb];
a[k,stolb]:=rem; {замена столбцов}
end;
end.

uses crt;
const n=5;
var a,b:array [1..n]of integer;
    c:array [1..n*2] of integer;
    i,k:byte;
begin
randomize;
writeln('Èñõîäíûé ìàññèâ À: ');
for i:=1 to n do
begin
 a[i]:=random(20)-5;
 write(a[i]:3);
 c[i*2-1]:=a[i];
end;
writeln;
writeln('Èñõîäíûé ìàññèâ B: ');
for i:=1 to n do
begin
 b[i]:=random(20)-5;
 write(b[i]:3);
 c[i*2]:=b[i];
end;
writeln;
writeln('Ðåçóëüòèðóþùèé ìàññèâ C ');
for i:=1 to n*2 do
 write(c[i]:3)
end.

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    stolb,rem,str,i,j:integer;
begin
randomize;
str:=1;
stolb:=1;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(30)-5;
    write(a[i,j]:5);
    if a[i,j]>a[str,stolb] then
    begin
     str:=i;
     stolb:=j;
    end;
   end;
  writeln;
 end;
writeln;
write('MAX[',str,',',stolb,']:=',a[str,stolb]);
writeln;
if stolb<>1 then
 begin
  for i:=1 to n do
   begin
    rem:=a[i,1];
    a[i,1]:=a[i,stolb];
    a[i,stolb]:=rem;
   end;
  writeln;
 for i:=1 to n do
  begin
   for j:=1 to n do
     write(a[i,j]:5);
   writeln;
  end;
 end
else writeln('ÌÀX â ïåðâîì ñòîëáöå,ìàòðèöà áåç èçìåíåíèé.');
end.