Определить, сколько фамилий в списке состоят из 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.

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

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

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.