var file of integer integer begin Assign dat Rewrite randomize begin -

var
    f,h:file of integer;
    i,a:integer;
begin
 Assign(f,'f.dat');
 Rewrite(f);
 randomize;
 begin
   a:=-5+random(11);
   write(a,' ');
 end;
 Assign(h,'h.dat');
 rewrite(h);
 Seek(f, 0);
 while (not Eof(f)) do
 begin
   read(f,a);
   if (a>=0) then
   write(h,a);
 end;
 seek (f,0);
 while (not eof(f)) do
 begin
   read(f,a);
   if (a<0) then
   write(h,a)
 end;
 Seek(h,0);
 Writeln;
 while (not Eof(h)) do
 begin
   write(h,a);
   write(a, ' ');
 end;
 Close(f);
 Close(h);
 readln;
end.