Для файла целых чисел des.dat перепишите положительные числа в один дополнительный файл, а отрицательные – в другой. Pascal ABC

var  f,fo,fp:file of integer;  i,n:integer;begin  { создать файл }  randomize;  assign(f,'des.dat');  rewrite(f);  for i:=1 to 20 do  begin    n:=random(101)-50;    Write(n,' ');    Write(f,n)  end;  close(f);  Writeln;  { работа с файлами }  reset(f);  assign(fo,'deso.dat');  rewrite(fo);  assign(fp,'desp.dat');  rewrite(fp);  while not eof(f) do  begin    Read(f,n);    if n>0 then Write(fp,n)    else if n<0 then Write(fo,n)  end;  close(f);  close(fo);  close(fp)end.