[Pascal]_задачи на файлы(тип integer,real)

var
  f1, f2, f3, f4: file of integer;
  a, b, c, i:     integer;

  procedure ResetFiles;
  begin
    reset(f1);
    reset(f2);
    reset(f3);
    reset(f4);
  end;

  procedure CloseFiles;
  begin
    Close(f1);
    Close(f2);
    Close(f3);
    Close(f4);
  end;

  procedure PrintFiles;
  var
    c: integer;
  begin
    while not EOF(f1) do
    begin
      Read(f1, c);
      writeln(c);
    end;
    while not EOF(f2) do
    begin
      Read(f2, c);
      writeln(c);
    end;
    while not EOF(f3) do
    begin
      Read(f3, c);
      writeln(c);
    end;
    while not EOF(f4) do
    begin
      Read(f4, c);
      writeln(c);
    end;
  end;

begin
  readln(a, b);
  Assign(f1, 'c:\f1');
  rewrite(f1);
  if a > b then
  begin
    c := a;
    a := b;
    b := c;
  end;
  for i := a to b do
    Write(f1, i);
  Close(f1);
  reset(f1);
  Assign(f2, 'c:\f2');
  Assign(f3, 'c:\f3');
  Assign(f4, 'c:\f4');
  rewrite(f2);
  rewrite(f3);
  rewrite(f4);
  while not EOF(f1) do
  begin
    Read(f1, c);
    if c < 0 then
      Write(f2, c)
    else
    if c > 0 then
      Write(f3, c)
    else
      Write(f4, c);
  end;
  CloseFiles;
  ResetFiles;
  PrintFiles;
  CloseFiles;
  readln;
end.