Открыть файл с исходником на Паскале и в промежутке от var до begin посчитать количество запятых

uses
  System.IO, System.Text.RegularExpressions;
begin
  writeln('Количество запятых между var и begin равно: ',
    Regex.Matches(Regex.Match(&File.ReadAllText('d:\test\test.pas'), '(?s)(?<=\bvar\b).+?(?=\bbegin\b)').Value, ',').Count);
end.

var
  f:text;
  s:string;
  ok:boolean;
  i,j,k,l:integer;
begin
  write('Enter file name:');readln(s);
  assign(f,s);
  reset(f);
  l:=0;
  ok:=false;
  while not eof(f) do begin
    readln(f,s);s:=s+' ';
    while (length(s)>0) and (s[1]=#32) do delete(s,1,1);
      j:=pos('var ',s);
      if j=1 then ok:=true else
      if (j>1) and (s[j-1] in [';',' ']) then ok:=true;
      k:=pos('begin ',s);
      if k=1 then ok:=false else
      if (k>1) and (s[k-1] in [';',' ']) then ok:=false;
      if k=0 then k:=length(s);
      for i:=j+1 to k do
        if ((j>0) or ((j=0) and (ok))) and (s[i]=',') then inc(l);
 end;
 close(f);
 writeln('количество запятых:',l);
end.

{$mode objfpc}
uses Classes, RegExpr;
begin
   with TStringList.Create do
   try
      LoadFromFile('d:\test\agaga.pas');
      with TRegExpr.Create do
      try
         Expression := '\bvar\b.+?\bbegin\b';
         if Exec(Text) then
           writeln('Количество запятых = ', Length(ReplaceRegExpr('[^,]', Match[0], '', False)))
         else writeln('"var" или "begin" не были найдены');
      finally
        Free; // TRegExpr
      end;
   finally
     Free; // TStringList
   end;
end.

{  var begin  }
(* var begin *)
var
  a, b, c: Integer;
begin
end.

const s = 'var begin';
var
  a, b, c: Integer;
begin
end.