Обработка файлов

[goGAS]

Дан файл целых чисел. Удвоить его размер, записав в конец файла все его исходные элементы в том же порядке.

Помогите пжл с задачкой
заранее спс!

[BDA]

Код на Дельфи.

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  f:file of integer;
  a,i,n:integer;

begin
  assignfile(f,'in.txt');
  reset(f);
  n:=filesize(f);
  for i:=0 to n-1 do
  begin
    seek(f,i);
    read(f,a);
    seek(f,filesize(f));
    write(f,a);
  end;
  closefile(f);
end.