Работа с текстовыми файлами Опции

[Sarmat]

Народ, помогите пожалуйста:
Дан текстовый файл. Надо подсчитать количество пустых строк в нем.
Как делать?

[Sarmat]

!

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.

вот написал, но она всё равно не работает
что не так?

Сообщение отредактировано: klem4 - 12.06.2007 14:58