Типизированные файлы

procedure append(var f, g, h: file of char);
var
  s: char;
begin
  rewrite(f);                                      
  reset(g);                                        
  while not (eof(g)) do
  begin
    read(g, s);
    Write(f, s);                                       
  end;
  reset(h);                                          
  while not (eof(h)) do
  begin
    read(h, s);
    Write(f, s);                                        
  end;
  close(f);
  close(g);
  close(h);
end;

procedure append(var f, g, h: file of char);
var
  c: char;
  i: byte;
 
begin
  assign(f, 'file1');
  rewrite(f);
  assign(g, 'file2');
  rewrite(g);
  assign(h, 'file3');
  rewrite(h);
  writeln('Введите в файл file1 10 символв:');
  for i := 1 to 10 do
  begin
    readln(c);
    write(f, c);
  end;
  close(f);
  writeln('Введите в файл file2 5 символв:');
  for i := 1 to 5 do
  begin
    readln(c);
    write(g, c);
  end;
  close(g);
  reset(f);
  writeln('Fail 1:');
  while not eof(f) do
  begin
    read(f, c);
    write(h, c);
    write(c, ' ');
  end;
  writeln;
  close(f);
  {close(h);}
  reset(g);
  writeln('Fail 2:');
  while not eof(g) do
  begin
    read(g, c);
    write(h, c);
    write(c, ' ');
  end;
  writeln;
  close(g);
  reset(h);
  writeln('Файл 3:');
  while not eof(h) do
  begin
    read(h, c);
    write(c, ' ');
  end;
  close(h);
end;
 
var
  a, b, c: file of char;
 
begin
  append(a, b, c);
end.