Описать функцию, которая подсчитывает количество пустых строк в текстовом файле t — Pascal(Паскаль)

var t:text;
    str:string;
    count:integer; 
 
begin
assign(t,'C:\1.txt');
reset(t);
 
 while not Eof(t) do
  begin
    readln(t,str);
      if Length(str)=0 then
         count:=count+1;    
 
  end;
 
close(t);
writeln('Число пустых строк =',count);
readln;
end.