t_15_42_a_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
описать функцию, подсчитывающую количество пустых строк в текстовом файле}
program t_15_42_a_v1 (input,output);
var t:text;
function count(t:text):integer;
    var i:integer; c:char; b:boolean;
    begin
        assign(t,'D:\pascal.text\15.42a.txt');
        reset(t);
        i:=0;
        repeat
           readln(t,c);
           if (eoln(t)=true) and (eof(t)<>true) then i:=i+1;
        until eof(t)=true;
        count:=i;
        close(t);
    end;
begin
    write(count(t));
end.