Работа с файлами, не работает но и ошибки нету

var
  g, f: Text;
  s, m: string;
  a: array[0..5] of string;
  size: Integer;
  b: array[0..5] of string;
  size2: Integer;
  c: array[0..5] of string;
  size3: Integer;
 
procedure pustoy;
begin
  size := 0;
  size2 := 0;
  size3 := 0;
end;
 
procedure push3;
begin
  Writeln('Push3');
  if size3 > 5 then
  begin writeln('Переполнение'); halt; end
     else
  begin
    c[size3] := s;
    size3 := size3 + 1;
  end;
end;
 
procedure push2;
begin
  Writeln('Push2');
  if size2 > 5 then
  begin push3; end
      else
  begin
    b[size2] := s;
    size2 := size2 + 1; end;
end;
 
procedure push;
begin
  Writeln('Push');
  if size > 5 then
  begin push2; end
      else
  begin
    a[size] := s;
    size := size + 1; end;
end;
 
 
procedure pop;
begin
  Writeln('Pop');
  if size3 >= 1 then begin
    size3 := size3 - 1; write(g, c[size3]); end
  
  else if size2 >= 1 then begin
    size2 := size2 - 1; write(g, b[size2]); end
  
  else if size >= 1 then begin
    size := size - 1; write(g, a[size]); end
  
  else
  begin writeln('Нехватка'); halt; end;
end;
 
begin
  pustoy;
  assign(f, 'testtext.txt');
  reset(f);
  assign(g, 'zadan_2a.txt');
  rewrite(g);
  Writeln('Файлы инициализированы');
  while not EOF(f) do 
  begin
    read(f, m);
    if (m <> ' ') and (m <> '.') and (m <> '?')
      then s := s + m
    else begin
      if m = ' ' then
      begin
        push;
      end;
      if(m = '.') or (m = '?') then 
      begin
        if m = '.' then
        begin
          push;
          write(g, '.')
        end 
        else 
        begin
          push;
          write(g, '?');
        end;
        while size >= 1 do
          pop;
      end;
    end;
    
  end;
  close(g);
  close(f);
  Writeln('Программа завершена');
end.

var g,f:Text;
    s:char;
    a:array[0..5] of string;
   size:Integer;
    b:array[0..5] of string;
   size2:Integer;
    c:array[0..5] of string;
   size3:Integer;
      procedure pustoy;
     begin
    size:=0;
    size2:=0;
    size3:=0;
     end;
      procedure push3;
     begin
     if size3>5 then
    begin writeln('Переполнение'); halt; end
     else
     begin c[size3]:=s; size3:=size3+1; end;
     end;
        procedure push2;
      begin
      if size2>5 then
     begin push3; end
      else
      begin b[size2]:=s; size2:=size2+1; end;
     end;
        procedure push;
      begin
      if size>5 then
     begin push2; end
      else
      begin a[size]:=s; size:=size+1; end;
     end;
    
    procedure pop;
begin
  if size3 >= 1 then begin
 size3 := size3 -1; write(g,c[size3]); end
 
  else if size2 >= 1 then begin
 size2 := size2 -1; write(g,b[size2]); end
 
  else if size >= 1 then begin
 size := size - 1; write(g,a[size]); end
 
  else
  begin writeln('Нехватка'); halt; end;
 end;
 
 
 begin
 pustoy;
   assign(f,'testtext.txt');
  reset(f);
  assign (g,'zadan_2a.txt');
  rewrite(g);
  
while not EOF(f) do begin
read (f,s);
while (s<>' ') and (s<>'?')and (s<> '.') 
and (s<>',') and (s<>'-') and (s<>'"') do begin
push;
 read(f,s);
 end;
 
 while size>0 do
 pop;
 if s=' ' then write(g,' ');
 if s='?' then write(g,'?');
 if s='.' then write(g,'.');
 if s=',' then write(g,',');
 if s='-' then write(g,'-');
 if s='"' then write(g,'"');
 pustoy;
 until eof(f);
 end;
 close(g);
 close(f);
 end.