Двумерный массив, перестановка столбцов с max и min элементами (pascal)

[Mirk]

Помогите, пожалуйста дороботать программу, которая меняет местами столбцы, содержащие минимальный и максимальный элементы(предполагается, что такие элементы единственны).

Program maxmin;
Uses crt;
Const N=5; M=8;
Var A:array[1..N,1..M]of integer;
	i,j,max,min,k1,k2:integer;
Begin
Clrscr;
Randomize;
For i:=1 to N do begin
For j:=1 to M do begin
	A[i,j]:=random(100);
	write(A[i,j]:4);
	end;
Writeln;
end;
Writeln;
max:=0;
min:=100;
For i:=1 to N do 
For j:=1 to M do begin
If max<A[i,j] then begin max:=A[i,j];
			 k1:=j;
			 end;
If min>A[i,j} then begin min:=A[i,j];
			 k2:=j;
			 end;
Z:=A[i,k1];
A[i,k1]:=A[i,k2];
A[i,k2]:=Z;
end;
For i:=1 to N do begin
For j:=1 to M do begin
	A[i,j]:=random(100);
	write(A[i,j]:4);
	end;
Writeln;
end;
Writeln;
Readln;
End.

[werser]

После того как нашли индексы макс и мин отдельным цыклом поменяйте их:
For i:=1 to N do begin
Z:=A[i,k1];
A[i,k1]:=A[i,k2];
A[i,k2]:=Z;
End;

[Mirk]

СПАСИБО!!!наконец то я поняла свою ошибку)ну теперь можно со спокой ной совестью идти на ЕГЭ...