t_15_44_a_v1_volkovich

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