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

const
  n = 10;

var
  f1, f2: file of char;
  i:      integer;
  c:      char;

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

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

  procedure PrintFiles;
  var
    c: char;
    i: integer;
  begin
    i := 0;
    while not EOF(f1) do
    begin
      Read(f1, c);
      writeln(c);
    end;
    writeln;
    writeln;
    while not EOF(f2) do
    begin
      Read(f2, c);
      writeln(c);
    end;
  end;

begin
  randomize;
  Assign(f1, 'c:\f1');
  rewrite(f1);
  for i := 1 to n do
  begin
    c := chr(random(255));
    Write(f1, c);
  end;
  Close(f1);
  reset(f1);
  Assign(f2, 'c:\f2');
  rewrite(f2);
  while not EOF(f1) do
  begin
    Read(f1, c);
    Write(f2, c);
    Read(f1, c);
  end;
  CloseFiles;
  ResetFiles;
  printfiles;
  CloseFiles;
  readln;
end.