КАК мне поменять 2 минимума и 2 максимума

[Wi1D]

Помогите пожалуйста с простой задачей!не могу составить алгоритм!вот задание.В заданном двумерном массиве А поменять местами минимальные элементы среди положительных и максимальные среди отрицательных ...
Вот начал писать
rogram KyPCoBuK;
Uses CRT;
const max=100;
type
Myarr=array[0..max,0..max] of integer;
var
a:myarr;
n,m,i,j,x,mins,minm:integer;
Begin;
ClrScr;
write('CkoJlbKo CTPOK=');
readln(n);
write('CkoJlbKo CTOJlboB=');
readln(m);
if(n>max) or (m>max) then writeln('OLLIubKA') else
begin
if(n<=0) or (m<=0) then writeln('OLLIubKa') else
begin
for i:=1 to n do
for j:=1 to m do
begin
write('BBEDu a[',i,';',j,']=');
readln(a[i,j]);
end;
end;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>0 then
{--------------------------------------------------------}
mins:=999;
minm:=1;
begin
if a[i,j]<mins then
begin mins:=a[i,j];
end;
if mins>minm then
begin
x:=mins;
mins:=minm;
minm:=x;
end;
end;

writeln(minm);
writeln(mins);
readkey
end.

[Wi1D]

хотя бы подскажите путь!!!код я сом напишу!!!