Function F:real;
{+$F}
Function F(x:real):real;
begin
f:=x;
end;
{-$F}

Procedure Razd(var a:Vect;m:byte;F:REAL;k:byte);
var
 i,j:byte;
 x:real;
 p:boolean;
begin
 i:=1;
 j:=m;
 while i<j do 
 begin
   if a[i]>=0 then
  begin
   p:=true;
    while (j>i) and (p=true) do
     if a[j]<0 then
      begin 
       x:=a[i];
       a[i]:=a[i+1];
       a[i+1]:=k;
       p:=false;
       end;
      end;
      j:=j-1;
     end;
      i:=i+1;
   end;
   begin
if j=m then
   begin
    k:=J+1;
     end
      else 
     begin
      If p=true then 
      begin
      k:=i-1;
      end
      else
      begin
      k:=j;
     end; 
     end;
     end;

Procedure Razd(var a:Vect; m:byte; var k:byte);
var:
 i,p,q:byte;
 b,c:Vect;
begin
 p:=0;
 q:=0;
 for i:=1 to m do
  if F(a[i])<0 then
   begin
    Inc(p);
    b[p]:=a[i];
   end;
  else
   begin
    Inc(q);
    c[q]:=a[i];
   end;
 for i:=1 to p do a[i]:=b[i];
 for i:=1 to q do a[p+i]:=c[i];
 k:=p+1;
end;