Копирование файлов

[Artificial]

procedure copy_com(copy1,copy2:string);
var    f1, f2: file;
        count: integer;
        buffer: array[1..1024] of byte;
        filename: string;
        filecopy: string;
        curdir: string;
        curfile: searchrec;
        n: integer;
        results: integer;
        ff: integer;
        results_s:string;
        doser_s,ff_s:string;
begin
if fileexists(copy1) then begin
FindFirst(copy1,anyfile,curfile);
AssignFile(f1,copy1);
AssignFile(f2,copy2);
Rewrite(f2,100);
Reset(f1,100);
count:=1;
while not EOF(f1) do begin
                     BlockRead(f1,buffer,count);
                     BlockWrite(f2,buffer,count);
                     inc(n);
                     ff:=curfile.size div 1024;
                     str(ff,ff_s);
                     str(n,s);
                     setcolor(snow);
                     outtextxy(1,gety,s);
                     setcolor(black);
                     OutTextXY(1,GetY,s);
                     end;
CloseFile(f1);
CloseFile(f2);
SetColor(Snow);
OutTextXY(1,GetY,Concat(s,' ','Bytes done.'));
tabular;
WriteBuf('Complete! Total: '); WriteBuf(Concat(ff_s,' ','Kb'));
tabular;
end
else begin
writebuf('Sorry, no file');
tabular;
end;
end;

Собственно - ф-ция копирования, самое смешное - вчера она еще работала.
В чем проблема?

  if (func = 'copy') then copy_com(option_t1,option_t2); // copying files

-- Вызов ф-ции.
Все было нормально, но теперь копирует, только если введено "copy c:/file1.txt file2.txt" - то есть копирует в папку, где лежит сама программа. Если введено "copy c:/file1.txt c:/file2.txt" - вылетает.

[ryton]

мне кажется что в Rewrite и Reset указывается всего один параметр-имя переменной файлового типа

[Artificial]

Нет, при работе с файлами - 2 параметра)

[ryton]

Два параметра не обязательны,главное первый,второй указывает на размер записи.И вообще,нафига писать программу копирования файлов таким образом,если все это позволяют сделать стандартные библиотеки Delphi???

[Artificial]

Это курсовая(годовая) работа по паскалю, с использованием этих ф-ций и надо написать программу.

[Artificial]

ryton, спасибо, проблему решил.
Проблема была в другом, к этой процедуре никак не относилось.