Var
  f:file of integer;
  i,n,kp,ko: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;
  { работа с файлом }
  ko:=0;
  kp:=0;
  reset(f);
  while not eof(f) do
  begin
    Read(f,n);
    if n>0 then Inc(kp)
    else if n<0 then Inc(ko)
  end;
  close(f);
  Writeln('Положительных ',kp,', отрицательных ',ko)
end.