Задача с матрицей Опции

[NightKroT]

Здравствуйте! Учился я учился(нифига не делал тоесть), и вдруг оказалось что через неделю здавать програмирование(типа курсача тока за полгода). Ну это предыстория
Дана квадратная матрица, нужно найти максимальный элемент на главной диагонали, и минимальный на побочной(или как её там). Потом поменять местами сторчи и столбцы на которых они стоят. Найти макс/мин я то вроде могу, а вот поменять как? Подскажите кто может.
ЗЫ: Смеяться не надо.
ЗЫЫ: Если решение где-то есть на сайте, то тоже просьба не пинать, я только зарегился, а сроки ой как поджимают(до пятницы)

Сообщение отредактировано: NightKroT - 28.11.2007 21:42

[NightKroT]

  { меняем местами сначала строки, где находятся минимум и максимум }
  for i := 1 to n do begin
    x := mas[ix_min, i]; mas[ix_min, i] := mas[ix_max, i]; mas[ix_max, i] := x;
  end;

  {  потом - столбцы, соответственно }
  for i := 1 to n do begin
    x := mas[i, n - ix_min + 1]; mas[i, n - ix_min + 1] := mas[i, ix_max]; mas[i, ix_max] := x;
  end;

  { Ну, и проверяем }
  for i := 1 to n do begin
    for j := 1 to n do
      Write(mas[i,j]:4);
    writeln;
  end;

Помозговал. Думаю у меня задание поменять местами столбцы со строками в точке координат минимума побочной и максимума главной. Тоесть нужно менять местами сточки и столбцы, а не слобцы со столбцами, а максимум никак не связан с минимумом.
На основе данных тут ответов написал такое:

for i := 1 to n do begin
x := mas[ix_min, i]; mas[ix_min, i] := mas[ix_max, i]; mas[ix_max, i] := x;
end;
for i := 1 to n do begin
x := mas[ix_min, i]; mas[ix_min, i] := mas[n-i+1,n-ix_min+1]; mas[n-i+1,n-ix_min+1] := x;
end;
for i := 1 to n do begin
for j := 1 to n do
Write(mas[i,j]:4);

ещё раз спасибо всем.