Работа с файлом - переменная в коде не меняет своего значения

Procedure Search(var s1,str:string);
var
   f: text;
   s,g,s2: string;
   x,y,j,k,i: integer;
   flag: boolean;
 
begin
  flag:=false;
  assign(f,str);
  reset(f);
  s1:='';
  while not eof(f) do begin
  readln(f,s);
  while (length(s)>0) and (s[1]=' ') do delete(s,1,1);
  g:='begin ';
  if pos(g,s)=0 then flag:=true;         <------------вот здесь программа работает неправильно
  if flag=true then
  begin
  k:=length(s);
      for i:=1 to k do
      begin
        if  ((s[i]=':') and (s[i+1]='=')) then
       begin
       for j:=length(s1)-length(s2)+1 downto 1 do
    if copy(s1,i,length(s2))=s2 then delete(s1,i,length(s2));
        s1:=s1 + s2 + ' ';
        s2:='';
       end
        else
        begin
        if s[i]=';' then
        s2:=''
        else
        s2:=s2 + s[i];
        end;
  end;
 end;
end;
end;

if pos(g,s)=0 then flag:=true;

g:='begin ';
  if pos(g,s)=0 then flag:=true;         <------------вот здесь программа работает неправильно
  if flag=true then

if (Pos('begin ', s) <> 0) then

Program Kurs;
 
var
  f , tr:text;
  s:string;
  ok:boolean;
  i,j,l,g: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);
        if ((j>0) or ((j=0) and (ok))) and (s[i]=':') then inc(g);
 end;
 
 close(f);
 writeln('Количество запятых: ',l);
 writeln('Количество двоеточий: ',g);
 writeln('Количество переменных: ', l+g);
end.

Program Kurs;
var
   str, s1: string;
 
 
Procedure WriVar(var s1,str:string);
var
  f: text;
  s,s2: string;
  ok: boolean;
  i, j, k, l, g: integer;
 
begin
  assign(f,str);
  reset(f);
  s1:='';
  while not eof(f) do begin
    readln(f,s);
    s:=s+' ';
    while (length(s)>0) and (s[1]=' ') 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 break
      else
      if (k>1) and (s[k-1] in [';',' ']) then
      ok:=false;
      if k=0 then
      k:=length(s);
      for i:=1 to k do
      begin
        if ((j>0) or ((j=0) and (ok))) and ((s[i]=',') or (s[i]=':')) then
       begin
       while (length(s2)>0) and (s2[1]=' ') do delete(s2,1,1);
       while (length(s2)>0) and (s2[length(s2)]=' ') do delete(s2, length(s2), 1);
        s1:=s1 + s2 + ' ';
        s2:='';
       end
        else
        begin
        if s[i]=';' then
        s2:=''
        else
        s2:=s2 + s[i];
        if s2=' var ' then s2:='';
        end;
 end;
 end;
 close(f);
 writeln('Ñòðîêà: ', s1)
 end;
 
Procedure Search(var s1,str:string);
var
   f: text;
   s,s2,s3,g: string;
   x,y,j,k,i,h: integer;
   flag: boolean;
 
 begin
 flag:=false;
  assign(f,str);
  reset(f);
  while not eof(f) do begin
  readln(f,s);
  while (length(s)>0) and (s[1]=' ') do delete(s,1,1);
  if (Pos('begin', s) <> 0) then flag:=true;
  if flag=true then
  begin
  k:=length(s);
      for i:=1 to k do
      begin
           if  ((s[i]=':') and (s[i+1]='=')) then
             begin
             for j:=i-1 downto 1 do
             if s2[j]=' ' or j=1 then
             else
             g:=g+s2[j];
             for h:= 1 to length(g) do s3:= s3 + g[h];
             end
           else
             begin
              if s[i]=';' then
               s2:=''
            else
               s2:=s2 + s[i];
             end;
  end;
 end;
end;
end;
 
 begin
  write('Enter file name:');
  readln(str);
  WriVar(s1,str);
  Search(s1,str);
 readln;
end.

uses SysUtils, Process;
 
var
  proc : TProcess;
  path, outfile : string;
begin
  path := 'D:\__Volvo\Programs\pascal\t215.pp';
  outfile := ChangeFileExt(path, '.txt');
 
  proc := TProcess.Create(nil);
  // пути к исходнику и к компилятору подправь
  proc.CommandLine := 'D:\FPC\2.6.4\bin\i386-win32\fpc.exe -b ' + path +
                      ' -Fe' + outfile;
  proc.Options := proc.Options + [poWaitOnExit];
  proc.Execute;
 
  proc.Free;
end.

Program Kurs;
uses SysUtils, Process;
 
Procedure Compile();
var
  proc : TProcess;
  path, outfile : string;
begin
  write('Введите путь к файлу .pas: ');
  readln(path);
  outfile := ChangeFileExt(path, '.txt');
 
  proc := TProcess.Create(nil);
  proc.CommandLine := 'C:\FPC\2.6.4\bin\i386-win32\fpc.exe -b ' + path +
                      ' -Fe' + outfile;
  proc.Options := proc.Options + [poWaitOnExit];
  proc.Execute;
 
  proc.Free;
  readln;
  end;
 
begin
Compile;
end.