type

 Товар = class

   public

   Наименование: string;

   Стоимость: real;

   СрокГодности: integer;

   Производитель: string;

   constructor (Наим: string; Стоим: real; Срок: integer; Произв: string);

   begin

     Наименование := Наим;

     Стоимость := Стоим;

     СрокГодности := Срок;

     Производитель := Произв;

   end;

   function ToString: string; override;

   begin

     Result := $'{Наименование}, {Стоимость}, {СрокГодности}, {Производитель}'

   end;        

 end;

begin

 var t1 := new Товар('Конфетка',250.6,24,'Артелька');

 var t2 := new Товар;

 t2.Наименование := 'Печенька';

 t2.Стоимость := 79;

 t2.СрокГодности := 36;

 Println(t1);

 Println(t2)

end.