Пусть данные находятся в d:/f1.txt
var
k,min,eqv,max,n:integer;
s:string;
f:text;
begin
write(Введите k: );
readln(k);
assign(f,d:/f1.txt);
reset(f);
while not eof(f) do
begin
readln(f,s);
n:=length(s);
if n
if n>k then max:=max+1;
end;
writeln(Меньше k: ,min);
writeln(Равно k: ,eqv);
writeln(Больше k: ,max);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.