Имитационная модель

Var T , Time , Time_or , Time_pr, K_or, K_pr , H,D,W,M, T_op,P_op : real;
     Time_nab,Kol_vkl : real;
     s:real;
begin
 Time_nab := strtofloat(Edit1.Text);
 Kol_vkl:=strtofloat(Edit2.Text);
 T_op := Time_nab / Kol_vkl ;
 P_op := 1 / T_op;
  T_op:=Round(T_op);
  P_op:=RoundTo(P_op, -5);
 Memo3.Lines.Add(floattostr(T_op));
 Memo4.Lines.Add(floattostr(P_op));
 
 // обнуление переменных
     Time:=0;Time_or:=0;Time_pr:=0;
     K_or:=0;K_pr:=0;H:=0;D:=0;W:=0;M:=0;
 
    while Time <= Time_nab do
    begin
    Randomize;
    Time:=Time+1;
      begin;
      H:=H+1;
      if (H=24) then begin
        D:=D+1;
        W:=W+1;
        H:=0;
        end;
      end;
    if (W>7) then
     w:=1;
    if(D=28) and (M=2) then
      begin;
      D:=1;
      M:=M+1;
      end;
    if (D=30)and ((M=4) or(M=6) or(M=9) or (M=11)) then
      begin;
      D:=1;
      M:=M+1;
      end;
    if (D=31) and ((M=1) or (M=3) or (M=5) or(M=7) or(M=8) or (M=10)) then
      begin;
      D:=1;
      M:=M+1;
      end;
    s := Random(10)/100;
    if ( Time < 3648) and (Time >4368) then
    if (P_op > s)then
      begin;
        // вход в нормальный режим
      Time := Time+23;
      Time_or:=Time_or+23;
      K_or:=K_or+1;
      end
 
       else
       begin;
 
        if (Time >= 3648) and (Time <=4368) then
            begin
              Time:=Time + 8;
              Time_pr:=Time_pr+8;
              K_pr:=K_pr+1;
            end;
       end;
 
     end;
        Memo1.Lines.Add('Time' + floattostr(Time_or));
           Memo1.Lines.Add('K_or' + floattostr(K_or));
              Memo2.Lines.Add('Time_pr' + floattostr(Time_pr));
           Memo2.Lines.Add('K_pr' + floattostr(K_pr));

 s := Random(10) /100;
      if (P_op < s)then
                         begin;
                         if ( Time < 3648) or (Time >4368) then
    while K_or < 19 do
      begin;
        // âõîä â íîðìàëüíûé ðåæèì
      Time := Time+23;
      Time_or:=Time_or+23;
      K_or:=K_or+1;
      end
             end

 Time:=Time+1;
        H:=H+1;
        if (H=24) then begin
        D:=D+1;
        W:=W+1;
        H:=0;
        end;
           if (W>7) then begin
              W:=1;
               end;
              if((D=28) and (M=2)) then
                 begin;
                 D:=1;
                 M:=M+1;
                 end;
               if (D=30)and ((M=4) or(M=6) or(M=9) or (M=11)) then
                     begin;
                      D:=1;
                       M:=M+1;
                        end;
          if (D=31) and ((M=1) or (M=3) or (M=5) or(M=7) or(M=8) or (M=10)) then
                     begin;
                       D:=1;
                     M:=M+1;
                       end;