Вывести из файла самую длинную фамилию - QBasic

Формулировка задачи:

Создать текстовый файл «FAM.dat». Записать в файл 10 фамилий. Вывести из файла самую длинную фамилию.

                    Листинг программы
                
 
                        
                          
                    
CLS
OPEN "FARM.DAT" FOR OUTPUT AS #1
DIM A$(10)
FOR I = 1 TO 10
INPUT "NAME"; A$(I)
PRINT #1, A(I)
NEXT I
N = LEN(A$(1))
FOR I = 2 TO 10
IF N < LEN(A$(I)) THEN IMAX = I
NEXT I
PRINT A$(IMAX)
CLOSE #1

выводит в файл одни нули

Решение задачи: «Вывести из файла самую длинную фамилию»

Листинг программы

CLS
F = FREEFILE
OPEN "R", #F, "FAM.DAT"
   FOR i = 1 TO 10
      INPUT "NAME :", N$
      PRINT #F, N$
   NEXT
   SEEK #F, 1
   FOR i = 1 TO 10
      INPUT #F, N$
      IF LEN(N$) > k THEN k = LEN(N$): R$ = N$
   NEXT
CLOSE #F
PRINT R$

Объяснение кода листинга программы

Установка начальной переменной FREEFILE в F
Открытие файла FAM.DAT на чтение (режим OPEN R)
Цикл от 1 до 10, в котором поочередно считывается имя из файла (N$)
Вывод имени на экран (PRINT #F, N$)
После выполнения цикла, установка указателя файла на начало (SEEK #F, 1)
Цикл от 1 до 10, в котором поочередно считывается фамилия из файла (N$)
Если длина фамилии больше текущей максимальной длины (k), то обновляется значение k и переменной R$ присваивается текущая фамилия
После выполнения цикла, закрытие файла (CLOSE #F)
Вывод самой длинной фамилии на экран (PRINT R$)