В каждой строке двухмерного массива поменять местами первый элемент и любой из максимальных

var a:array[1..6,1..6] of integer;  i,j,max,h,k:integer; 
begin 
for i:=1 to 6do 
begin 
for j:=1 to 4 do 
begin
a[i,j]:=random(30);
write( a[I,j]:5);
end; 
writeln;
end;
writeln; 
max:=0;k:=0;
for j:=1 to 6 do 
if a[1,j]>max then begin max:=a[1,j]; k:=j; end;
h:=a[1,1]; a[1,1]:=max;
a[1,k]:=h;
  for i:=1 to 6 do 
  begin 
  for j:=1 to 4 do 
  begin
  write( a[I,j]:5);
  end;writeln;
 end;
end.

var
  a: array[1..6, 1..6] of integer;
  i, j, max, h, k: integer;
 
begin
  for i := 1 to 6 do 
  begin
    for j := 1 to 6 do 
    begin
      a[i, j] := random(30);
      write(a[I, j]:5);
    end; 
    writeln;
  end;
  writeln; 
  max := -maxint;
  k := 1;
  for i := 1 to 6 do 
  begin
    max := a[i, 1];
    for j := 1 to 6 do 
      if a[i, j] > max then 
      begin
        max := a[i, j];
        k := j; 
      end;
    h := a[i, k];
    a[i, k] := a[i, 1];
    a[i, 1] := h;
  end;
  for i := 1 to 6 do 
  begin
    for j := 1 to 6 do 
    begin
      write(a[i, j]:5);
    end;
    writeln;
  end;
end.