покупка Опции

[Джа Будда]

Код

Uses Magazin, Pokupatel, Producti;

Procedure Pokupka(Sender:TMuzh);
Var
Kolbasa:TProduct;
Yaica: TProduct;
i:integer;

 Function Kupit (Product:Tproduct):Boolean;
 begin
   if Product.Svezhest < 10 then
   begin
   Kassa.Dengi:=Kassa.Dengi+Pokupatel.Dengi;
   Pokupatel.Sumka:=Pokupatel.Sumka+Product;
   end else
   begin
   Showmessage('Пшел нах, урод, у нас все свежее особенно '+Product.Nazvanie+'!!!');
   Exit;
   end;
 end;

begin
 if Kupit(Kolbasa) = true then
 begin
 Showmessage('Пасибо!!!');
 end;

 if Yaica.Present = true then
 begin
   For i := 0 to 9 do
   begin
     if Kupit(Kolbasa) = true then
     begin
     Showmessage('Пасибо!!!');      
     end;
   end;
 end;
end;