Определить, сколько фамилий в списке состоят из 8 или 9 букв

Это без использования файловvar spisok: array [word] of string; {объявляем массив для хранения фамилий} n,i,k: word; {n — количество фамилий,i — вспомогательная переменная, k — количество фамилий в списке равных 8 или 9 буквам}beginwrite ('Введите количество фамилий в списке n='); readln (n); for i: =1 to n do beginwrite ('Введите фамилию ',i,': '); readln (spisok[i]); if (length (spisok[i])=9) or (length (spisok[i])=8) then inc (k); {inc (k) — это тоже самое, что k: =k+1; }end; writeln ('Количество фамилий в списке состоящих из 8 или 9 букв=',k); end. П. С. Если вам потребуется, обработка конкретно через фаил напишите мне, так как в условии вы не указали точно через что!