Анекдот №72785

Жена говорит программисту:
-- Сходи в магазин, купи батон колбасы. Да, если там есть яйца, возьми
десяток.
Программист приходит в магазин и спрашивает:
-- У вас есть яйца?
-- Есть.
-- Тогда дайте мне десяток батонов колбасы.


Type TEda = record
Colbasa: Array of TColbasa;
Yaica: Array of TYaica;
OstMoney: TCurrency;
end;
Var
Magazin: TMagazin;

/-----

Function KupiEdy(Money: Currency; ColbasaCount,YaicaCount: integer): TEda;
Var
Colbasa: Array of TColbasa;
Yaica: Array of TYaica;
begin
try
SetLength(Colbasa,1);
Colbasa[0]: = Magazin.Colbasa[0];
Money:=Money-Magazin.Colbasa[0].Price;

if Length(Magazin.Yaica)>0 then
for i:=1 to 9 do
begin
SetLength(Colbasa,Length(Colbasa)+1);
Colbasa[i]:=Magazin.Colbasa[i];
Money:=Money-Magazin.Colbasa[i].Price;
end;
finally
Result.Colbasa:=Colbasa;
Result.Yaica:=Yaica;
Result.OstMoney:=Money;
end;
end;