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

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 ngt;0 then Write(fp,n)
    else if nlt;0 then Write(fo,n)
  end;
  close(f);
  close(fo);
  close(fp)
end.