Получить копию файла в файле g

program kopii;
uses crt;
const namef='d.txt';
      nameg='f.txt';
var f,g: file of char;
    s:string;
    b:char;
    i:integer;
begin
writeln('Ââåäèòå òåêñò: ');
readln(s);
assign(f,'D:\f.txt');
rewrite(f);
for i:=1 to length(s) do
begin
       b:=s[i];
       write(f,b);
       end;
close(f);
assign(g,'D:\g.txt');
rewrite(g);
reset(f);
while not eof(f) do
begin
       read(f,b);
       write(g,b);
       end;
close(f);
close(g);
reset(f);
while not eof(f) do
begin
       read(f,b);
       write(b);
       end;
close(f);
writeln;
end.

const namef='fileF';
      nameg='fileG';
var f,g: file of char;
    b:char;
    i:integer;
begin
//Создание файла f
writeln('Введите в файл символы, окончание ввода 0');
assign(f,namef);
rewrite(f);
repeat
readln(b);
write(f,b);
until b='0';
close(f);
//Копирование файла
assign(g,nameg);
rewrite(g);
reset(f);
while not eof(f) do
 begin
  read(f,b);
  write(g,b);
 end;
//чтение файлов
reset(f);
writeln('Файл F');
while not eof(f) do
 begin
  read(f,b);
  write(b);
 end;
close(f);
writeln;
reset(g);
writeln('Файл G');
while not eof(g) do
 begin
  read(g,b);
  write(b);
 end;
close(g);
end.