Проблема с записью в файл

var CountCar,i:integer;
 
NameCar,NameCarHist:array[0..100000] of string;
 
finput,s,foutput,action,car: string;
 
f,f1:textFile;
 
 
l,l1:boolean;
 
 
begin
 
l:=true;
 
//============ ВХОДНЫЕ ДАННЫЕ ======
 
finput:='c:\1\4\input.txt'; //полный путь до файла с входными данными
 
foutput:='c:\1\4\output.txt'; // Полный путь до файла с итоговыми данными
 
AssignFile(f, finput); // Создаем курсор на файл
 
AssignFile(f1, foutput); // Создаем курсор на файл аут
 
Reset(f); //Открываем файл
 
Readln(f,s); //Читаем первую строку
 
CountCar:=StrToInt(s);   //количество машин в парке уже
 
//заполним базу машинами (точнее базу и историю базы
 
for i:= 0 to CountCar - 1 do 
  begin
 
    Readln(f,s);
 
    NameCar[i]:= s;
 
    NameCarHist[i]:=s;
 
  end;
 
//изначальный массив сохранен.
 
 
while (l) do
 
begin
 
  Readln(f,s);
 
  //если конец списка, выйдем из цикла
 
  if s='delivery' then
 
    l:=false
 
  else
 
    //если не конец списка, то работаем
 
    begin
 
      //какое действие: in\out
 
      action:=copy(s,1,pos(' ',s)-1);
 
      //удалил действие
 
      s:=trim(copy(s,pos(' ',s),length(s)-pos(' ',s)+1));
 
      //возьмем тачку
 
      car:= copy(s,1,length(s));
 
      //разобрали строку
 
 
      if action = 'out' then
 
      //выезжаем
 
      begin
 
        l1:=false;
 
        //берем основной массив и ищем эту машину
 
        for i:=0 to CountCar do
 
          if  NameCar[i]=car then
 
            begin
 
              //просто обнулим, если она была, и запомним что мы удалили её(флаг)
 
              NameCar[i]:='';
 
              l1:=true;
 
            end;
 
        //если флаг не поменялся - машины нет в парке - ошибка
 
        if l1=false    then
 
          begin
 
            AssignFile(f1, foutput);
 
            Rewrite(f1);
 
            Writeln(f1,'ERROR');
 
            CloseFile(f1);
 
          end;
 
      end
 
      else
 
        begin
 
          l1:=true;
 
          //мы заезжаем
 
          //так же проверка в основном массиве, на присутствие машины
 
          for i:=0 to CountCar do
 
            if NameCar[i]=car then
 
              //если есть в списке, то ошибка въезда
 
              begin
 
                AssignFile(f1, foutput);
 
                Rewrite(f1);
 
                Writeln(f1,'ERROR');
 
                CloseFile(f1);
 
                l1:=false;
 
              end;
 
        //флаг на месте - машины там нет
 
        if l1=true then
 
          begin
 
            l1:=false;
 
            //машины нет в парке, проверим, а была ли?
 
            for i:=0 to CountCar do
 
              if NameCarHist[i]=car then
 
                begin
 
                  //если была, ставим на то же место, запомним что тачку поставили
 
                  NameCar[i]:=car;
 
                  l1:=true;
 
                end;
 
            //если тачки нет и небыло там, ставим в последнее +1 место тачку + в историю, что приехали и заняли это место
 
            if l1=false then
 
              begin
 
                CountCar:=CountCar+1;
 
                NameCar[CountCar]:=car;
 
                NameCarHist[CountCar]:=car;
 
              end;
 
          end;
 
        end;
 
    end;
 
 
 
end;
 
//вывод в файл, если не еррор
 
//выводим в файл все не пустые места, чтобы небыло дыр в отчете.
 
if l=true then
 
  begin
 
    AssignFile(f1, foutput);
 
    Append(f1);
 
  for i:=0 to CountCar do
 
    if NameCar[i]<>'' then
 
      Writeln(f1,NameCar[i]);
 
    CloseFile(f1);
 
  end;
 
end.

procedure error;
begin
  'ERROR'.Println;
  halt;
end;
 
begin
  Reset(input, 'input.txt');
  Rewrite(output, 'output.txt');
  var count := ReadLnInteger;
  var list := New List<integer>;
  for var i := 1 to count do list.Add(ReadLnInteger);
  repeat
    var s := ReadLnString;
    if s.IndexOf('delivery') = 0 then Break;
    var n := StrToInt(s.ToWords[1]);
    case s.ToWords[0] of
      'in' : if list.Contains(n) then error else list.Add(n);
      'out' : if not list.Contains(n) then error else list.Remove(n);
    end;
  until False;
  list.Println;
end.

procedure error;
begin
  'ERROR'.Println;
  Close(output);
  halt;
end;
 
begin
  Reset(input, 'input.txt');
  Rewrite(output, 'output.txt');
  var count := ReadLnInteger;
  var list := New List<integer>;
  for var i := 1 to count do list.Add(ReadLnInteger);
  repeat
    var s := ReadLnString;
    if s.IndexOf('delivery') = 0 then Break;
    var n := StrToInt(s.ToWords[1]);
    case s.ToWords[0] of
      'in' : if list.Contains(n) then error else list.Add(n);
      'out' : if not list.Contains(n) then error else list.Remove(n);
    end;
  until False;
  list.Println;
  Close(output);
end.

begin
  Milliseconds;
  var n := 1000000; //количество номеров
  var m := 10000; //количество запросов
  
  var a := n.Times.ToList; // 4.8 секунд в среднем
  var a := n.Times.ToHashSet; // 0.04 секунды в среднем
  
  loop m do
  begin
    var x := Random(100000);
    if a.Contains(x) then a.Add(x);
    var y := Random(100000);
    if a.Contains(y) then a.Remove(y);
  end;
  Println(MillisecondsDelta / 1000);
end.

procedure error;
begin
  'ERROR'.Println;
  output.Close;
  Halt;
end;
 
function VT<T1,T2>(a: T1; b: T2) :=
System.ValueTuple.Create(a,b);
 
begin
//  Reset(input, 'input.txt');
  Rewrite(output, 'output.txt');
  
  var count := ReadlnInteger;
  
  var list := new List<System.ValueTuple<integer,boolean>>(count + count div 2);
  var d := new Dictionary<integer, integer>(list.Capacity);
  
  loop count do
  begin
    var n := ReadlnInteger;
    d.Add(n, list.Count);
    list.Add(VT(n, true));
  end;
  
  repeat
    var s := ReadLnString;
    
    // .StartsWith быстрее .IndexOf, потому что проверяет только начало строки
    if s.StartsWith('delivery') then break;
    
    var ind := s.IndexOf(' ');
    var n := s.Substring(ind+1).ToInteger;
    
    var l_ind: integer;
    var in_park := d.TryGetValue(n, l_ind);
    
    // вообще об этом не сказано, наверное можно тоже .StartsWith('in')
    case s.Remove(ind) of
      
      'in':
      if not in_park then
      begin
        d.Add(n, list.Count);
        list.Add(VT(n,true))
      end else
      if list[l_ind].Item2 then
        error else
        list[l_ind].Item2 := true;
      
      'out':
      if not in_park then
        error else
        list[l_ind].Item2 := false;
      
      else error;
    end;
    
  until false;
  
  list.Where(t->t.Item2).Select(t->t.Item1).Println;
  output.Close;
end.