LAB5 Вложенные циклы + массивы

[Владан]

program Project1;

{$APPTYPE CONSOLE}
{Вложенные циклы + массивы
Заданная матрица целых чисел M x N, компоненты которой могут быть и нулями.
Сделать контрольный вывод матрицы на экран в естественном виде.
Матрицу инициалиазуваты как константу (двумерный массив).
11.Поминяты местами столбцы матрицы (5х2),
которые содержат наименьший и наибольший элементы, вывести новую матрицу на экран.}

uses
SysUtils,
Windows;
var

i,j,maxI,maxJ,minI,minJ : integer;
const
Mas: array[1..5,1..2] of integer = ((1,2),
(3,4),
(5,6),
(7,8),
(9,10));
begin

Writeln('matrix 5x2:');
for j:=1 to 5 do
begin
for i:=1 to 2 do
begin
Write(mas[i,j],' ');
end;
Writeln;
end;
maxI:=1;
maxJ:=1;
minI:=1;
minJ:=1;
for j:=1 to 5 do
for i:=1 to 2 do
begin
if mas[i,j]>mas[maxI,maxJ] then
begin
maxI:=i;
maxJ:=j;
end;
if mas[minI,minJ]>mas[i,j] then
begin
minI:=i;
minJ:=j;
end;
end;
Writeln('min = ',mas[minI,minJ]);
Writeln('max = ',mas[maxI,maxJ]);
readln;

end.








как поменять местами столбцы с мин. и макс. елементами , подскажите пожалуйста?

[JIeIIIa]

Номера столбцов известны. Меняй местами элементы построчно из этих столбцов.

for i:=1 to 5 do begin
   Поменять местами mas[i,maxJ] и mas[i,minJ] 
end;

[Владан]

Сообщение от JIeIIIa

Номера столбцов известны. Меняй местами элементы построчно из этих столбцов.

for i:=1 to 5 do begin
   Поменять местами mas[i,maxJ] и mas[i,minJ] 
end;

непонял , так не выполняется