Pascal Runtime error: 101

Sveiki, turiu masyvą pascalyjeir rašau jo duomenis į failą, kodas:

Assign(R, CR);              
Rewrite(R);                 
for i:=1 to CMax do         
 begin                     
     if duomenys[i]<>0 then
     begin                 
     Write(R, i:6);          
     end;                  
 end;                      
Close(R);                                     

Kompiliuodamas klaidų negaunu, tačiau, kai bandau programą paleisti, gaunu Runtime error: 101.

Jei rašau:

Assign(R, CR);              
Rewrite(R);                 
for i:=1 to CMax do         
 begin                     
     if duomenys[i]<>0 then
     begin                 
     Write(R, i);          
     end;                  
 end;                      
Close(R);                                     

tada klaidos nėra, tačiau, man reik kiekvienam skaičiui skirti šešias vietas. Gal galite pasakyti, kur mano klaida?

P.S. CR - failo pavadinimo konstanta.

įrašydamas duomenis kaži ar galėsi jiems skirt vienas :) išvesdamas duomenis galėsi vėliau

įrašydamas duomenis kaži ar galėsi jiems skirt vienas :) išvesdamas duomenis galėsi vėliau

Norėjau rašyti tą patį, ir nemanau kad parašydamas :6 tau tai ką nors duotų.

opą, supratau, ačiū :)