Hagamos entre todos un programa (No Novatos)

[[coso]]

Código Delphi [-]
function Maquina_canyas(num : integer; can : float; cl : TColor) : array of TCanyas;
var
       curr_camarero : integer;
       canyas : array of TCanyas;
begin
         curr_camarero := 0;
         SetLength(canyas,num);

         while (curr_camarero < num) then
         begin
                 canyas[curr_camarero].cantidad := can + random(10) - random(5);
                 canyas[curr_camarero].Tipo := cl;                
                 inc(curr_camarero);
         end;
         Maquina_canyas := canyas;
end;

esto es para la taberna, no se yo si incluirlo en el programa

PD : de verdad se pierde un poco el 'oremus' por aqui eh?
PDD : edito, que me dio un error de compilacion.