Ошибка при запуске программы

var
    f1, f11, f2 : text;
    str : string;
    lineNum, lineNum1, charNum, charNum1 : integer;
    ch1, ch11 : char;
    hasSpaces : boolean;
    
procedure writeToFile(); //запись с нулями
begin
reset(f11);
lineNum1 := 1;
while(not eof(f11)) do
    begin 
      read(f11, ch11);
      charNum1:=charNum+ 1;
      if (lineNum1 = 3) OR (lineNum1 = 5) then
        if (charNum1 = 4) AND (ch11 = ' ') then
          write(f2, '0')
        else
          write(f2, ch11)
      else
        write(f2, ch11);
      if(eoln(f11)) then
      begin
      lineNum1 := lineNum1;
        charNum1 := 0;
        writeln(f2, '');
        readln(f11, str); //переход на след. строку
      end;
    end;
end;
    
procedure writeToFile2(); //запись без 2 строк
begin
  reset(f11);
  lineNum1 := 1;
  while(not eof(f11)) do
    begin 
      read(f11, ch11);
      if (lineNum1 <> 3) AND (lineNum1 <> 5) then
        write(f2, ch11);
      if(eoln(f11)) then
      begin
          lineNum1 := lineNum1+1;
          if (lineNum1 <> 3) AND (lineNum1 <> 5) then
          writeln(f2, '');
        readln(f11, str); //переход на след. строку
      end;
    end;
end;
    
begin
    writeln('lab8');
    assign(f1, 'file1.txt');
    assign(f11, 'file1.txt');
    assign(f2, 'file2.txt');
    reset(f1);
    rewrite(f2);
    lineNum := 1;
    hasSpaces := false;
    
    while(not eof(f1)) do
    begin 
      read(f1, ch1);
      charNum := charNum+1;
      if (lineNum = 3) OR (lineNum = 5) then
        if (charNum = 4) then
        if (ch1 = ' ') then
          //writeln('line: ', lineNum);
            //writeln('char: ', charNum);
            hasSpaces := true;
      if(eoln(f1)) then
      begin
      lineNum := lineNum+1;
        charNum := 0;
        readln(f1, str); //переход на след. строку
      end;
    end;
    
    if (hasSpaces) then
      writeToFile()
    else
      writeToFile2();
      
    close(f1);
    close(f2);
end.