Двумерные массивы (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.

[__STDC__]

Вы зачем постите одинаковые сообщения?
http://programmersforum.ru/showthread.php?t=33537 последний мой пост - ваша программа