Поменять местами минимальный из положительных элементов матрицы и максимальный элемент 3-го столбца

var a: array [1..3, 1..4] of integer = ((-1, 7, 12, 8),
                                        (-1, 3, -4, 4),
                                        ( 3, 2, -1, 4));
    i, j, mpi, mpj, m3i, t: integer;
begin
  mpi := 0;
  mpj := 1;
  m3i := 1;
  writeln('Source array:');
  for i := 1 to 3 do
    begin
      for j := 1 to 4 do
        begin
          write(a[i, j]:3);
          if (a[i, j] > 0) and (((mpi > 0) and (a[i, j] < a[mpi, mpj])) or (mpi = 0))
            then begin
              mpi := i;
              mpj := j
            end;
          if (j = 3) and (a[i, j] > a[m3i, j]) then m3i := i
        end;
      writeln
    end;
  writeln;
  t := a[mpi, mpj];
  a[mpi, mpj] := a[m3i, 3];
  a[m3i, i] := t;
  writeln('Result array:');
  for i := 1 to 3 do
    begin
      for j := 1 to 4 do write(a[i, j]:3);
      writeln
    end;
  readln
end.