Уточняю - у write - два параметра.Первый - это что пишем, второй сколько.
Что там делает
'crypted'?
А правильней, наверно можно так
Код:
for ifile:=0 to round do CloseF.Write(fout[ifile],sizeof(fout[ifile]));
или даже так
Код:
CloseF.Write(fout[0],sizeof(fout[0])*ifile);