Цикл REPEAT

[ReginA123]

Repeat
      sum:=0;
       g:=  3/(h+5);
       for i:=1 to n do
       for j:=1 to m do
       a[i,j]:=y*d[i,j]+c[i,j];
       x:= Yazon(a);
       for i:=1 to n do
       for j:=1 to m do
       if x[i,j]=1 then Sum:=Sum+StrToFloat(stringgrid1.Cells[j-1,i-1]);
       if Sum<=b then checko:=true;
      if sum>b then
      begin
         checko:=false;
           for i:=1 to t do
           for j:=1 to t do
           y:=y+g*(d[i,j]*x[i,j]-b);
          end;
        h:=h+1;
     until  (h<=100) or (sum<=b);
      if h>100 then  Application.MessageBox('Ðåøåíèå íå ìîæåò áûòü íàéäåíî!','Îñòàíîâêà!',MB_ICONSTOP)
     else

Если задача несовместна, то должно выдаваться сообщение о том что решение не может быть найдено. Но все равно выдает решение
Если нужно больше кода,то в архиве вся программа. Нужно выбрать задача с доп ограничением и пример на скриншоте, в таком случае должно быть сообщение что решение не найдено. Подскажите пожалуйста в чем проблема