Пусть данные находятся в 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<k then min:=min+1;
  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.