Неполная запись данных в файл (из цикла)

#Include <File.au3>
;Файл с именами
$name_file = FileOpen("name.txt", 0)
; Проверка наличия файла
If $name_file = -1 Then
    MsgBox(0, "Error name.txt", "Файл с именами отсутствует.")
    Exit
EndIf

;Файл с фамилиями
$fname_file = FileOpen("fname.txt", 0)
; Проверка наличия файла
If $name_file = -1 Then
    MsgBox(0, "Error fname.txt", "Файл с фамилиями отсутствует.")
    Exit
EndIf

;Вывод статистики
$kolln=_FileCountLines("name.txt")
$kollf=_FileCountLines("fname.txt")
$max_var = $kolln*$kollf
MsgBox(0, "Исходные данные и статистика:","Имён:" & $kolln & @CRLF & "Фамилий:" & $kollf & @CRLF & "Вариантов:" & $max_var)

;Генеритрование данных
For $i = 1000 to 1 Step -1

;Случайное имя
$ni= Random(1, $kolln, 1)  ; Случайный номер строки
$name = FileReadLine ($name_file, $ni)

;Случайная фамилия
$fi= Random(1, $kollf, 1)  ; Случайный номер строки
$fname = FileReadLine ($fname_file, $fi)

;Запись результатов
$out_file = FileOpen("out_data.txt", 1)
FileWriteLine($out_file, $name & ";" & $fname & @CRLF)
Next

For $i = 1000 to 1 Step -1
;...
$out_file = FileOpen("out_data.txt", 1)
;...
Next