Для файла целых чисел 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.