Uses Crt;

type Items = Record
    Id: integer;
    Name: string[20];
    Manifacturer: string[20];
    Color: integer;
    Size: integer;
    Date: integer;
    InStock: boolean;
  end;

var
  Fv1: file of Items;
  ItemsTable: Items;

begin
  Assign(Fv1, "Items.rost")

end.