Как поменять столбцы в массиве? Оо

[Лесная Эльфийка]

Задача . Ввести двумерный массив размером 7*4. Поменять столбец с максимальным элементом с первым столбцом двумерного массива.

Program lolo;
USES crt;
Var
M:array [1..4,1..7] of integer;
a,b,c,i,j,max,jmax:integer;

begin;
clrscr;
for I:= 1 to 4 do
for j:= 1 to 7 do
read(m[i,j]);

for i:=1 to 4 do
begin
for j:=1 to 7 do
write(m[i,j]:2,' ');
writeln
end;
begin
max:=m[1,1];
for i:=1 to 4 do
for j:=1 to 7 do
if m[i,j]>max then begin max:=m[i,j]; jmax:=j;
writeln('ìàêñèìàëüíûé ýëåìåíò: ',max,' ñòîëáåö: ',jmax);
for j:=1 to 7 do begin

end;

end;
end;
end.

И как их поменять то?

[Alex11223]

Простой вариант:
создать массив [1..4], записать в него этот столбец и в исходном массиве на его место записать первый, а на место первого из нового массива.

[G-Kyller]

проходишь циклом по первому столбцу, значение ячейки запоминаешь в переменную, вставляешь в эту ячейку значение из столбца который нашел, а в тот, после этого, значение переменной
либо копируешь один столбик в новый массив, вставляешь в столбец значения большего столбца, а его заменяешь на значения из нового массива

[Лесная Эльфийка]

Простите нубку, но как значения из нового массива перезаписать в этот? ^_^"

[G-Kyller]

for i:=1 to 4 do begin
m[i,1]:=Novii[i];
end;

[Лесная Эльфийка]

Сделала! Всем большое спасибо)