aqui de nuevo , alguien puede decirme porque este procedimiento no me da error pero solo responde 0 (cero)en el label?
Código Delphi
[-]procedure TForm1.BitBtn1Click(Sender: TObject);
var
n, Alquilados,PerdidaND, PerdidaO,Ociosos: integer;
u: real;
begin
randomize;
n:=(StrToInt(Edit1.text));
u:= (random(10))/10;
if (u < 0.1) then
N:=0
else
if (u>=0.1)and (u<0.2)then
N:=1
else
if (u>=0.2)and (u<0.45)then
N:=2
else
if (u>=0.45)and (u<0.75)then
N:=3
else
if (u>=0.75)and (u<1)then
N:=4;
if ((n-N)>=0) then
begin
Alquilados:= N;
Ociosos:= n-N;
PerdidaO:= Ociosos*50;
n:=n-N;
end
else
PerdidaND:= (n-N)*200;
if (n>0)then
begin
Alquilados:= (N-n);
n:=0;
end
else
Alquilados:=0;
n:=0;
label1.Caption:=IntToSTr(Alquilados);
end;