Найти значение минимального элемента массива, присвоить его значение элементу, находящемуся на пересечении второй строки

Var 
   i, j,k,ind2,ind1, n: integer;
   min: integer;
   x: array [,] of  integer;
begin
randomize;
write('Введите n:');
readln(n);
setlength(x,n,n);
for i:=0 to n-1 do
for j:=0 to n-1 do
    x[i,j]:=random(10);
writeln ('Массив:');
for i:=0 to n-1 do
  begin
    for j:=0 to n-1 do
      write (x[i,j]:3);
  writeln  
  end;
min:=x[0,0];  
for i:=0 to n-1 do
for j:=0 to n-1 do
  begin
   if(x[i,j] <= min) then
            
                min := x[i,j];
                ind1 := i;
                ind2 := j;
                end;
                writeln ('min=',min);
  k:=x[ind1,ind2];
  x[ind1,ind2]:=x[2,3];
  x[2,3]:=k;
  writeln('изменённый массив');
  for i:=0 to n-1 do
for j:=0 to n-1 do
  begin write(x[i,j]:3); 
  end;
end.

const W = 3;
var
  n, i, j, min, mi, mj: Integer;
  x: array [,] of Integer;
begin
  Randomize;
  Write('Введите n: ');
  ReadLn(n);
  SetLength(x, n, n);
  for i := 0 to n - 1 do
    for j := 0 to n - 1 do
      x[i, j] := Random(10);
  WriteLn('Исходный массив:');
  for i := 0 to n - 1 do begin
    for j := 0 to n - 1 do
      Write(x[i, j]: W);
    WriteLn;
  end;
  min := x[0, 0];
  for i := 0 to n - 1 do
    for j := 0 to n - 1 do
      if x[i, j] < min then begin
        min := x[i, j];
        mi := i;
        mj := j;
      end;
  WriteLn('min=', min);
  x[mi, mj] := x[2, 3];
  x[2, 3] := min;
  WriteLn('Изменённый массив:');
  for i := 0 to n - 1 do begin
    for j := 0 to n - 1 do
      Write(x[i, j]: W);
    WriteLn;
  end;
end.