Народ, помогите пожалуйста:
Дан текстовый файл. Надо подсчитать количество пустых строк в нем.
Как делать?
! | 2. Все тексты фрагментов программ должны помещаться в теги [code ] ... [ /code ] или [ code=pas ] ... [ /code ]. |
program ex25;
uses crt;
var
f:text;
a:string;
i:integer;
begin
clrscr;
assign(f,'25.txt');
reset(f);
i:=0;
while not eof(f) do
begin
read(f,a);
if length(a)=0 then i:=i+1;
end;
close(f);
writeln('number of empty lines is ',i);
readkey;
end.
while not eof(f) do
begin
readln(f,a); // <------------------