Определить, сколько фамилий в списке состоят из 8 или 9 букв. (тема: строковый тип данных)

как по мне то лучше удобство и ничего лишнего, ведь список сохранять не говорили

var s: string;

k: integer;

begin  repeat      write('введите фамилию: ');       readln(s);       if (length(s)=9) or (length(s)=8) then

          k: =k+1   until s=''; {прекращаем чтенье если нам посылают пустую строку}  writeln(k); end.

это без использования файлов

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.

п.с. если вам потребуется,обработка конкретно через фаил напишите мне, так как в условии вы не указали точно через что!

1. Подпрограмма (англ. subroutine) — поименованная или иным образом идентифицированная часть компьютерной программы, содержащая описание определённого набора действий. Подпрограмма может быть многократно вызвана из разных частей программы.

Объяснение: