procedimiento que no responde

[chechu]

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;