{
Сибирский Государственный Университет Путей Сообщения (СГУПС)
Кафедра "Информационные технологии транспорта"

Задание: Определить сколько строк в файле содержат менее 60 символов.

Выполнил: ст.гр. МЛ-112, Фомин Александр
г.Новосибирск, 2012г.
}

Program TextFiles; uses crt;

const criterion=60; {Критерий поиска}

var f:text; {Текстовый файл}
    st:string; {Строка}
     count:integer; {Счетчики}

Begin clrscr;
Write('--------------------------------------------------------------------------------');
GotoXY(17,WhereY); Writeln('Для запуска программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln; clrscr;

Write('--------------------------------------------------------------------------------');
Assign(F,'TFs_2F.txt'); {Подключаем файл TFs_2F к переменной F}
Reset(F);  {Открываем новый файл TFs_2F}
Count:=0; {Начальное значение счетчика}

While not Eof(F) do
      Begin
           Readln(F,St); {Читаем из файла TFs_2F}
             if (Length(St) < Criterion) then Inc(Count);
      end;

Close(F); {Закрываем файл TFs_2F}

Writeln(' Кол-во строк, в файле "TFs_2F.txt", содержащих меньше ',Criterion,' символов: ',Count:2);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.