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

[Пых-Пых?]

Простая процедура копирования. Проблемы начались после добавления в программу модуля ObjPas. Перестал запускаться графический режим.

uses  WinCrt, WinGraph, SysUtils, Dos, Printer, MmSystem, crt, ObjPas;

procedure copy_com(copy1,copy2:string);
var    f1, f2: file;
        count: integer;
        buffer: array[1..2048] of char;
        filename: string;
        filecopy: string;
        curdir: string;
        curfile: searchrec;
        n: integer;
        results: integer;
        ff: integer;
        results_s:string;
begin
FindFirst(copy1,anyfile,curfile);
AssignFile(f1,copy1);
AssignFile(f2,copy2);
Rewrite(f2);
Reset(f1);
count:=1;
while not EOF(f1) do begin
                     BlockRead(f1,buffer,count);
                     BlockWrite(f2,buffer,count);
                     inc(n);
                     ff:=curfile.size div 1024;
                     results:=round(n / ff);
                     results:=results * 100;
                     gotoxy(25,10);
                     str(results,results_s);
                     writebuf(results_s); writebuf('%');
                     end;
CloseFile(f1);
CloseFile(f2);
writebuf('Complete!');
tabular;
end;

При ObjPas выдает ошибку в строке

InitGraph(driver,mode,'');

Без него не пашет AssignFile и т.д. может кто подскажет в чем дело и как исправить?

[puporev]

Надо или в нормальном Паскале(Турбо) или в Делфи работать, проблем не будет.