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

Пусть данные находятся в d:\f1.txtvar  k,min,eqv,max,n:integer;  s:string;  f:text;beginwrite('Введите 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.