Создайте текстовый файл.
Определите, сколько строк файла имеют длину большую, равную и меньшую, чем
заданное значение k.

Пусть данные находятся в 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 eqv:=eqv+1;
  if n>k then max:=max+1;
  end;
writeln(Меньше k: ,min);
writeln(Равно k: ,eqv);
writeln(Больше k: ,max);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.