Цикл не работает...?

[Иринкаа]

Kl1_post:=0;
  Kl2_post:=0;
 
  Kl1_ochered:=0;
  Kl2_ochered:=0;
  
Vremya_tekyshee:=0;
Vremya_obsl1:= 0;
 Vremya_obsl2:=0;
if Edit2.Text='2' then
 begin
  repeat
    Vremya_tekyshee:= Vremya_tekyshee+Delt_m;
    Kol_post:= Kolichestvo(lmbd);
    
    if (Kl1_ochered > Kl2_ochered) or (Kl1_ochered = Kl2_ochered)  then
       begin
        Kl2_ochered:= Kl2_ochered+Kol_post;
         if Vremya_tekyshee > Vremya_obsl1 then
           begin
             Kl2_post:= Kl2_post + 1;
             Kl2_ochered:= Kl2_ochered - 1;
             Vr_obsl1:= Vremya_obslugivania(StrToInt(Edit3.Text)/Scale, 15/Scale);
             Vr_obsl2:= Vremya_obslugivania(StrToInt(Edit4.Text)/Scale, 20/Scale);
             Vremya_obsl1:= Vr_obsl1 + Vr_obsl2 + Vremya_tekyshee;
           end
       end
      else
       begin
        Kl1_ochered:= Kl1_ochered+Kol_post;
        if Vremya_tekyshee > Vremya_obsl2 then
           begin
             Kl1_post:= Kl1_post + 1;
             Kl1_ochered:= Kl1_ochered - 1;
             Vr_obsl1:= Vremya_obslugivania(StrToInt(Edit3.Text)/Scale, 15/Scale);
             Vr_obsl2:= Vremya_obslugivania(StrToInt(Edit4.Text)/Scale, 20/Scale);
             Vremya_obsl2:= Vr_obsl1 + Vr_obsl2 + Vremya_tekyshee;
           end
       end;

   until Vremya_tekyshee < Vr_mashin_obsh;
 end;

Цикл repeat until явно не работает почему-то. Наращивание Vremya_tekyshee не происходит.

ПОчему? Подскажите, плиз

[Alex21]

Vremya_tekyshee:= Vremya_tekyshee+Delt_m;

Delt_m - где берется?

[Иринкаа]

Сообщение от Alex21

Vremya_tekyshee:= Vremya_tekyshee+Delt_m;

Delt_m - где берется?

Вот начало:

lmbd:= StrToInt(Edit1.Text);
  Tk:= StrToInt(Edit24.Text)*60*60;
  Vr_mashin_obsh:= StrToInt(Edit5.Text);
  Scale:= Tk/Vr_mashin_obsh;
  Delt:= StrToInt(Edit6.Text);
  Delt_m:= 60*Delt/Scale;

Все параметры задаются

[Alex21]

Vremya_tekyshee < Vr_mashin_obsh

Попробуйте поменять знак на >
Vremya_tekyshee при входе в repeat = 0, если Vr_mashin_obsh>0, то цикл невыполняется ни разу.

[Иринкаа]

Сообщение от Alex21

Попробуйте поменять знак на >
Vremya_tekyshee при входе в repeat = 0, если Vr_mashin_obsh>0, то цикл невыполняется ни разу.

угу, точно, знак поменяла
что-то заработало вроде

спасибо

[mutabor]

ну раз заработало, это хорошо

[Иринкаа]

Сообщение от mutabor

ну раз заработало, это хорошо

не уверена, что хорошо
т.к. не уверена, что сам цикл вообще правильный