t_15_45_v1_volkovich

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