создать массив

[rusland1]

создать массив, в
котором поменять местами максимальное среди отрицательных и
минимальное среди простых.

[newerow1989]

function simple(n:integer):boolean;
var i:integer;
begin
   Result:=false;
   If n<2 then
      Exit;
   For i:=2 to Trunc(Sqrt(n)) do
      If n mod i=0 then
         Exit;
   Result:=true;
end;

var p:array[1..40] of integer;
    i,imax,imin,z:integer;
begin
   Randomize;
   For i:=1 to 40 do
   begin
      p[i]:=-10+Random(21);
      Write(p[i],'  ');
   end;
   Writeln;
   imax:=1;
   While (p[imax]>=0) and (imax<40) do
      imax:=imax+1;
   imin:=1;
   While (p[imin]<=2) and (imin<40) do
      imin:=imin+1;
   For i:=2 to 40 do
   begin
      If (p[i]<0) and (p[imax]<p[i]) then
         imax:=i;
      If (p[i]>0) and simple(p[i]){среди простых} and (p[imin]>p[i]) then
         imin:=i;
   end;
   Writeln(imax,' ',p[imax],'        ',imin,' ',p[imin]);
   z:=p[imax];
   p[imax]:=p[imin];
   p[imin]:=z;
   For i:=1 to 40 do
      Write(p[i],'  ');
   Writeln;
   Readln;
end.

Сойдет?