Помогите написать код для решения задачи в Паскале

 for i := 1 to n do begin

  min := 1;

  max := 1;

  for j := 2 to m do begin

    if p[i, j] < p[j, min] then min := j; 

    if p[i, j] > p[j, max] then max := j

  end;

  tmp := p[j, min];

  p[j, min] := p[j, max];

  p[j, max] := tmp

end; 

 program q232304972;  

var 

  i, j, jmin, jmax, tmp: Integer; 

  p: array of array of Integer; 

begin 

  Randomize; 

  SetLength(p, Succ(Random(10)), Succ(Random(15))); 

  for i := Low(p) to High(p) do 

  begin 

    for j := Low(p[i]) to High(p[i]) do 

    begin 

      p[i][j] := Random(101) - 50; 

      Write(p[i][j]:4); 

    end; 

    WriteLn; 

  end; 

  WriteLn; 

  for i := Low(p) to High(p) do 

  begin 

    jmin := Low(p[i]); 

    jmax := Low(p[i]); 

    for j := Low(p[i]) to High(p[i]) do 

    begin 

      if p[i][j] < p[i][jmin] then 

        jmin := j; 

      if p[i][j] > p[i][jmax] then 

        jmax := j; 

    end; 

    tmp := p[i][jmax]; 

    p[i][jmax] := p[i][jmin]; 

    p[i][jmin] := tmp; 

    for j := Low(p[i]) to High(p[i]) do 

      Write(p[i][j]:4); 

    WriteLn; 

  end; 

  Finalize(p); 

  ReadLn; 

end. 

 var a: array[1..12, 1..12] of integer; 

    i, j, max, maxj, min, minj: integer; 

    temp: integer; 

begin 

  for i := 1 to 12 do 

  begin 

    max := -maxint; 

    min := maxint; 

    for j := 1 to 12 do 

    begin 

      read(a[i, j]); 

      if a[i, j] > max then 

      begin 

        max := a[i, j]; 

        maxj := j; 

      end; 

      if a[i, j] < min then 

      begin 

        min := a[i, j]; 

        minj := j; 

      end; 

    end; 

    temp := a[i, maxj]; 

    a[i, maxj] := a[i, minj]; 

    a[i, minj] := temp; 

  end; 

end.