Что не так с кодом. не запускается в PascalABC NET

program WholesaleWarehouse;
 
 
 
type
  TDelivery = record
    InvoiceNumber: Integer;
    ProductCode: string;
    ProductName: string;
    Supplier: string;
   
    StoragePeriod: Integer;
  end;
 
var
  WarehouseFile: file of TDelivery;
  Delivery: TDelivery;
  TempDelivery: array of TDelivery;
  TempFileName: string;
  ProductNameToSearch: string;
  InvoiceNumberToSearch: Integer;
  ExpiryThreshold: TDateTime;
  ExpiringProductsFile: TextFile;
  RemoveInvoiceNumber: Integer;
  RemoveProductCode: string;
 
procedure InsertionSort(var Arr: array of TDelivery);
var
  I, J: Integer;
  Temp: TDelivery;
begin
  for I := 1 to High(Arr) do
  begin
    Temp := Arr[I];
    J := I - 1;
    while (J >= 0) and (CompareText(Arr[J].ProductName, Temp.ProductName) > 0) do
    begin
      Arr[J + 1] := Arr[J];
      Dec(J);
    end;
    Arr[J + 1] := Temp;
  end;
end;
 
procedure SearchSuppliersByProductName(const Arr: array of TDelivery; const ProductName: string);
var
  I: Integer;
begin
  Writeln('Список поставщиков для товара "', ProductName, '":');
  for I := 0 to High(Arr) do
  begin
    if CompareText(Arr[I].ProductName, ProductName) = 0 then
      Writeln(Arr[I].Supplier);
  end;
end;
 
procedure PrintDeliveryInfo(const Delivery: TDelivery);
begin
  Writeln('Номер накладной: ', Delivery.InvoiceNumber);
  Writeln('Код товара: ', Delivery.ProductCode);
  Writeln('Наименование товара: ', Delivery.ProductName);
  Writeln('Поставщик: ', Delivery.Supplier);
  Writeln('Дата поступления: ', DateToStr(Delivery.DeliveryDate));
  Writeln('Срок хранения: ', Delivery.StoragePeriod, ' дней');
end;
 
procedure SearchExpiringProducts(const Arr: array of TDelivery; const ExpiryThreshold: TDateTime);
var
  I: Integer;
  ExpiringProductsCount: Integer;
begin
  ExpiringProductsCount := 0;
  AssignFile(ExpiringProductsFile, 'expiring_products.txt');
  Rewrite(ExpiringProductsFile);
  
  Writeln(ExpiringProductsFile, 'Список товаров, у которых срок хранения близится к концу:');
  
  for I := 0 to High(Arr) do
  begin
    if Arr[I].DeliveryDate + Arr[I].StoragePeriod >= ExpiryThreshold then
    begin
      Inc(ExpiringProductsCount);
      Writeln(ExpiringProductsFile, '---');
      Writeln(ExpiringProductsFile, 'Товар ', ExpiringProductsCount, ':');
      PrintDeliveryInfo(Arr[I]);
    end;
  end;
  
  CloseFile(ExpiringProductsFile);
  
  if ExpiringProductsCount = 0 then
    Writeln('Нет товаров, у которых срок хранения близится к концу.')
  else
    Writeln('Список товаров, у которых срок хранения близится к концу, сохранен в файле "expiring_products.txt".');
end;
 
procedure RemoveDelivery(var Arr: array of TDelivery; const InvoiceNumber: Integer; const ProductCode: string);
var
  I, J: Integer;
begin
  for I := 0 to High(Arr) do
  begin
    if (Arr[I].InvoiceNumber = InvoiceNumber) and (CompareText(Arr[I].ProductCode, ProductCode) = 0) then
    begin
      for J := I to High(Arr) - 1 do
        Arr[J] := Arr[J + 1];
      SetLength(Arr, Length(Arr) - 1);
      Exit;
    end;
  end;
end;
 
begin
  AssignFile(WarehouseFile, 'warehouse.dat');
  Rewrite(WarehouseFile);
 
  // Ввод данных о поступившем товаре
  repeat
    Write('Введите номер накладной (0 для выхода): ');
    Readln(Delivery.InvoiceNumber);
    if Delivery.InvoiceNumber <> 0 then
    begin
      Write('Введите код товара: ');
      Readln(Delivery.ProductCode);
      Write('Введите наименование товара: ');
      Readln(Delivery.ProductName);
      Write('Введите поставщика: ');
      Readln(Delivery.Supplier);
      Write('Введите дату поступления (в формате ДД.ММ.ГГГГ): ');
      Readln(Delivery.DeliveryDate);
      Write('Введите срок хранения (в днях): ');
      Readln(Delivery.StoragePeriod);
      WriteLn(WarehouseFile, Delivery);
    end;
  until Delivery.InvoiceNumber = 0;
 
  CloseFile(WarehouseFile);
 
  Reset(WarehouseFile);
 
  // Упорядочить данные по наименованию товара в лексикографическом порядке сортировкой простыми вставками
  SetLength(TempDelivery, FileSize(WarehouseFile));
  for I := 0 to High(TempDelivery) do
    Read(WarehouseFile, TempDelivery[I]);
  CloseFile(WarehouseFile);
 
  InsertionSort(TempDelivery);
 
  Rewrite(WarehouseFile);
  for I := 0 to High(TempDelivery) do
    Write(WarehouseFile, TempDelivery[I]);
  CloseFile(WarehouseFile);
 
  // Вывод списка поставщиков по заданному наименованию товара
  Write('Введите наименование товара для поиска поставщиков: ');
  Readln(ProductNameToSearch);
  SearchSuppliersByProductName(TempDelivery, ProductNameToSearch);
 
  // Вывод информации по номеру накладной
  Write('Введите номер накладной для поиска информации: ');
  Readln(InvoiceNumberToSearch);
  for I := 0 to High(TempDelivery) do
  begin
    if TempDelivery[I].InvoiceNumber = InvoiceNumberToSearch then
    begin
      Writeln('Информация по номеру накладной ', InvoiceNumberToSearch, ':');
      PrintDeliveryInfo(TempDelivery[I]);
      Break;
    end;
  end;
 
  // Вывод списка товаров, у которых срок хранения близится к концу
  Write('Введите количество дней до истечения срока хранения: ');
  Readln(Delivery.StoragePeriod);
  ExpiryThreshold := Date + Delivery.StoragePeriod;
  SearchExpiringProducts(TempDelivery, ExpiryThreshold);
 
  // Удаление товара по номеру накладной и коду товара
  Write('Введите номер накладной для удаления: ');
  Readln(RemoveInvoiceNumber);
  Write('Введите код товара для удаления: ');
  Readln(RemoveProductCode);
  RemoveDelivery(TempDelivery, RemoveInvoiceNumber, RemoveProductCode);
 
  Rewrite(WarehouseFile);
  for I := 0 to High(TempDelivery) do
    Write(WarehouseFile, TempDelivery[I]);
  CloseFile(WarehouseFile);
 
  Writeln('Товар с номером накладной ', RemoveInvoiceNumber, ' и кодом товара ', RemoveProductCode, ' успешно удален.');
 
  Readln;
end.