Транспонировать квадрат,в нижнем левом углу которого находится минимальный элемент

[capta1n]

во-первых, она не перестанет работать, во-вторых, внимательно почитайте условие:

Транспонировать квадрат,в нижнем левом углу которого находится минимальный элемент матрицы

если условие, выделенное красным цветом не выполняется, то и переставлять ничего не надо

[Sazary]

capta1n, Я как раз внимательно его читал.
И ув. puporev как раз изобразил как это должно выглядеть.

[capta1n]

а теперь понял, все дошло, что имелось в виду)

[zidan671]

Спасибо вам большое))в принципе всё понял)А вариант предложенный Sazary самый простой или данную прогу можно подругому сделать?

[Sazary]

Вот этот кусок:

len := 0;
 for i:=mi downto 1 do
  inc(len);
 k := 0;
 for j:=mj to n do
  inc(k);
 if k<len then len := k;

Можно заменить на

len := mi;
 if n-mj+1<len then len:=n-mj+1;

----------------------
А так.. Ну что тут еще упростить?
Нужно найти минимум. Затем узнать длину квадрата, транспонировать его и вывести. Это и делает программа.