[Fokys100]

Вот код и он не работает помогите пожалуйста:

Код:

var
  INFiles, OutFiles: array of file;
Begin
   SetLength(INFiles,Length(Pathes_Data));
   SetLength(OutFiles,Length(Pathes_Data));
   AssignFile(INFiles[0],Pathes_Data[0]);
   Reset(INFiles[0]);
   AssignFile(OutFiles[0],Edit1.Text+ExtractFileName(Pathes_Data[0])+'en');
   Rewrite(OutFiles[0]);
   while not eof(INFiles[0]) do
   begin
     BlockRead(INFiles[0],x1,1);
     BlockWrite(OutFiles[0],y1,1);
    end;
    CloseFile(INFiles[0]);
    CloseFile(OutFiles[0]);

    AssignFile(INFiles[1],Pathes_Data[1]);(здесь ошибка)
    Reset(INFiles[1]);
end;