Нетипизированный файл

 
type
  TProduct = record
    Code: integer;
    Name: string;
    Quantity: integer;
    Price: real;
    Amount: real;
    CustomerCode: integer;
    CustomerName: string;
  end;
procedure GetSalesByProductCode(Code: integer);
var
  SalesFile: file of TProduct;
  Product: TProduct;
  Found: boolean;
begin
  Assign(SalesFile, 'sales.dat');
  Reset(SalesFile);
  Found := False;
  while not EOF(SalesFile) do
  begin
    Read(SalesFile, Product);
    if Product.Code = Code then
    begin
      // Найдена запись, содержащая заданный код товара
      // Вывести информацию о продаже на экран
      writeln('Code: ', Product.Code);
      writeln('Name: ', Product.Name);
      writeln('Quantity: ', Product.Quantity);
      writeln('Price: ', Product.Price:0:2); // 0:2 - означает вывод с двумя знаками после запятой
      writeln('Amount: ', Product.Amount:0:2);
      writeln('Customer code: ', Product.CustomerCode);
      writeln('Customer name: ', Product.CustomerName);
      Found := True;
    end;
  end;
  if not Found then
  begin
    writeln('No sales found with product code ', Code);
  end;
  Close(SalesFile);
end;
var
  SalesFile: file of TProduct;
  Product: TProduct;
begin
  GetSalesByProductCode(1234);
  Assign(SalesFile, 'sales.dat');
  Rewrite(SalesFile);
  // Начать ввод данных о продажах, сохранять введенные данные в переменную Product
  Write(SalesFile, Product);
  // По окончании ввода закрываем файл
  Close(SalesFile);
end.

type
  TProduct = record
    Code: integer;
    Name: string[100];
    Quantity: integer;
    Price: real;
    Amount: real;
    CustomerCode: integer;
    CustomerName: string[100];
  end;