Файлы в Паскале

[britva666]

Написать программу, которая бы присваивала файлу b содержимое исходного файла c.
Простая программа но до меня никак не доходит

[Disel]

uses crt;
var b,c:text; s:string;

BEGIN
assign(b,'file_b');
assign(c,'file_c');
 reset(c);
 rewrite(b)
  while not eof(c) do
   begin
    readln(c,s);
    writeln(b,s);
   end;
  close(b);
  close(c);
END.

[Mixasik]

britva666, как вриант просто скопировать файл и переименовать его в имя файл b.