Программа, позволяющая организовать в виде очереди набор данных динамической структуры о страховой компании

const fName = 'C:\Документы\Downloads\Strax.txt';
 
type
  tQueueItem = class
    F : String[20]; /// Фамилия
    d : String[20]; /// Бедствие
    s : Integer;    /// Сумма
    x : tQueueItem; /// Следующий в очереди
    
    constructor (F, d : String; s : Integer);
    begin
      Self.F := F; Self.d := d; Self.s := s; Self.x := nil;
    end;
    
    procedure print := WriteLnFormat('{0,-20} | {1,-16} | {2}', F, d, s);
  end;
  
type
  tQueue = class
    Head, Tail : tQueueItem;
    Count : Integer;
    
    constructor;
    begin
      Head := nil; Tail := nil; Count := 0;
    end;
    
    procedure Add(NewItem : tQueueItem);
    begin
      if Count = 0 then begin Head := NewItem; Tail := Head; end
      else begin Tail.x := NewItem; Tail := Tail.x; end;
      Count += 1;
    end;
    
    procedure Add(s : String);
    begin
      try
        var v := s.ToWords('|').Select(z->z.Trim).ToArray;
        if v.Count<>3 then Exit;
        var NewItem := New tQueueItem(v[0], v[1], StrToInt(v[2]));
        Add(NewItem);
      except
        Exit;
      end;
    end;
    
    procedure Print;
    begin
      if Count = 0 then begin WriteLn('Пусто.'); Exit; end else WriteLn('В очереди элементов ' + Count);
      WriteLn('       Фамилия       | Страховой случай | Сумма страховки');
      WriteLn('-'*60);
      var cur := Head;
      while cur <> nil do begin cur.Print; cur := cur.x; end;
    end;
    
    procedure Delete(n : Integer);
    begin
      while (n > 0) and (Count > 0) do (Head, n, Count) := (Head.x, n - 1, Count - 1);
      if Count = 0 then Tail := nil;
    end;
    
    procedure ReadItem;
    begin
      WriteLn('Введите информацию о страховке:');
      var NewItem := New tQueueItem(ReadLnString('Фамилия:'), ReadLnString('Бедствие или -:'), ReadLnInteger('Сумма:'));
      Add(NewItem);
    end;
    
    procedure Amount;
    begin
      if Count = 0 then begin WriteLn('Пусто.'); Exit; end;
      var(cur,res) := (Head,0);
      while cur <> nil do begin if cur.d = '-' then res += cur.s else res -= cur.s*10; cur := cur.x; end;
      WriteLn('Прибыль страховой компании состаляет ' + res);
    end;
  end;
 
begin
  var Queue := New tQueue; WriteLn('Очередь создана.');
  foreach var s in ReadLines(fName) do Queue.Add(s); WriteLn('Очередь заполнена из файла.');
  Queue.Print; WriteLn;
  Queue.Delete(ReadLnInteger('Число удаляемых из очереди элементов: K =')); WriteLn;
  Queue.Print; WriteLn;
  Queue.ReadItem; WriteLn;
  Queue.Print; WriteLn;
  Queue.Amount;
end.