Как найти максимальный элемент среди отрицатель-ных элементов и поменять его местами с минимальным положительным?

uses crt;
const nmax=20;
var a: array [1..nmax] of integer;
    i,j,n,imin,imax,k: byte;
    buf:integer;
begin
repeat
write('Размер массива, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
writeln('Исходный массив');
for i:=1 to n do
    begin
    a[i]:=random(199)-99;
    write(a[i]:4);
    end;
writeln;
i:=1; k:=0;
while(i<=n) or (k<1) do
      begin
      if (a[i]<0) and (k<1) then
         begin
         inc(k);
         imax:=i;
         end;
      inc(i);
      end;
if k=0 then writeln('Нет отрицательных элементов в массиве');
i:=1; k:=0;
while(i<=n) or (k<1) do
      begin
      if (a[i]>0) and (k<1) then
         begin
         inc(k);
         imin:=i;
         end;
      inc(i);
      end;
if k=0 then writeln('Нет положительных элементов в массиве');
for i:=1 to n do
    begin
    if (a[i]<0) and (a[i]>a[imax]) then imax:=i;
    if (a[i]>0) and (a[i]<a[imin]) then imin:=i;
    end;
writeln('Макс. из отрицательных ',a[imax]);
writeln('Мин.  из положительных ',a[imin]);
buf:=a[imax];
a[imax]:=a[imin];
a[imin]:=buf;
writeln('Преобразованный массив');
for i:=1 to n do
    write(a[i]:4);
end.