[PascalABC]Дано текстовый файл, разбитый на строки. Напечатать все строки, состоящие из шести букв.

[destra1j]

Дано текстовый файл, разбитый на строки. Напечатать все строки, состоящие из шести букв.

program filestr;
var
  f:text;
  ml:integer;
  s:string;
begin
  
  
  assign(f,'f.txt');
  reset(f);
  
 
   while not eof(f) do
  begin
    readln(f,s);
    if length(s)=6 then
      writeln(s);
  end;
  
  close(f);
  readln;
end.

он у мня работает но только для одной строчки а нужно чтобы сколько захочет пользователь.

[Aleksandr H.]

Что такое m1? Может в файле всего одна строка? Пробелы, цифры учитываются({{{3364йцукен3%4) строка из 6 букв?

[destra1j]

только буквы не цыфры и не какието другие символы

[Serge_Bliznykov]

Сообщение от destra1j

только буквы не цыфры и не какието другие символы

Извините, но это очень расплывчиво.
Если нужны только буквы, то, будьте любезны указать какие именно буквы нужно проверять (русские, латинские/английские, казахские, вьетнамские, китайские, японские, арабские, иврит...)?

я уже молчу о том, что текстовый файл имеет свою кодировку этих самых национальных буковок!

подсчитать количество латинских буковок в строке можно так:

while not eof(f) do
  begin
    readln(f,s);
    m1:=0;
    for i:=1 to Length(s) do 
      if s[i] in ['a'..'z','A'..'Z'] then Inc(m1);
    writeln('В строке латинских букв: ',m1,' Сама строка: ',s);
  end;

он у мня работает но только для одной строчки а нужно чтобы сколько захочет пользователь.

Вы заблуждаетесь. Ваш код обрабатывает ВСЕ строчки исходного текстового файла. Раз он Вам выводит только одну строку, значит, только одна строчка в вашем файле имеет длину 6 символов.

[destra1j]

А как сделать так чтобы пользователю не приходилось заходить в файл и там печатать строчки а непосредственно в программе это происходило?

[Serge_Bliznykov]

Никак. У Вас же другое задание:

Дано текстовый файл, разбитый на строки.

изменяйте своё задание, тогда можно сделать и по другому.

[destra1j]

Пользователь вводит данные в файл разбитый на строки. Напечатать все строки, состоящие из шести букв.

Изменил

изменяйте своё задание, тогда можно сделать и по другому.

Как?

[Serge_Bliznykov]

Пользователь вводит данные в файл разбитый на строки

{создание и заполениние пользователем текстового файла}
WriteLn('Введите имя текстового файла:');
ReadLn(fName);
assign(f,fName);
rewrite(f);
WriteLn('Вводите строки для записи в файл по одной, для окончания ввода введите пустую строку:');
repeat
  ReadLn(s);
  if s<>'' then WriteLn(f,s);
until s='';
Close(f);

потом можно делать Reset(f); и читать из этого файла...