В файле записаны фамилии. Вывести на экран фамилии тех у кого в них 7 букв.

program zz1;

var s:string; k: integer; / / задаем переменную строкового типа

k: integer; / / задаем переменную целого типа

f1: text; / / задаем переменную текстового типа для работы с файлом

begin

assign (f1, 'input. txt'); / / связываем переменную текстового типа с файлом

reset (f1); / / открываем файл для чтения

while not eoln (f1) do

begin

readln (f1, s); / / читаем фамилию

k:=length (s); / / узнаем сколько в ней букв

if k = 7 then writeln (s); / / выводим на экран, если в ней 7 букв

end;

close (f1); / / закрываем файл input

end.