[РЕШЕНО] Delphi 7, if then и else

[DarkMorfius]

Здравствуйте, пожалуйста помогите разобраться в чем я ошибаюсь. Я делаю циклы используя if then else. И немного запутался. вот код

if (ob1>=sa1) then   begin
ra1b1:=sa1;
sa1:=ob1-sa1;
if (ob1=0) and (sa1=0) then begin
ra2b2:=sa2;
sa2:=ob2-sa2;
end
end;

Проблема в том что после того как ob1=0 и sa1=0 действия не выполняются. Я предполагаю что как-то неправильно написал код.

Решение:

И как обычно я понял ошибку после того как создал тему...
Не той переменной присвоил вычитание.

[DarkMorfius]

И как обычно я понял ошибку после того как создал тему...
Не той переменной присвоил вычитание.

[Аватар]

Оформляй код с отступами, самому же легче его читать. Так например

if (ob1>=sa1) then   begin
  ra1b1:=sa1;
  sa1:=ob1-sa1;
  if (ob1=0) and (sa1=0) then begin
    ra2b2:=sa2;
    sa2:=ob2-sa2;
  end
end;

[ura_111]

Проблема наверно здесь:

if (ob1>=sa1)

поменяй условия на просто "<".