Cómo corregir errores del código fuente
Primero, abre estas dos oraciones en "1CHR.txt";
Abrir OUTemp1, '>, "outpdb. txt";
Reemplazar
Abrir OUTemp1 , "1CHR.txt" o "No se puede leer el archivo";
Abra OUTemp1, ">OutPDB.txt" o "No se puede crear"
Compruebe si hay cualquier informe de error.