Проблема с прогой

[Claster]

Програма для подсчёта идеального веса человека(Женского и мужского)

вот програмку написал

procedure TForm1.Button1Click(Sender: TObject);
var m,j,r,g,g1,v:integer;
begin
r:=StrToInt(Edit1.Text);
if radiobutton1.Checked then begin
label7.Caption:=IntToStr(r);
m:=r-110;
if (m>r-115) or (m<r-105) then
Label10.caption:=inttostr(m);

g:=StrToint(edit3.Text);
g1:=2008-g;

case g1 of
10..30: if (m>22) and (m<110) then
Label12.Caption:='Идеальное ссответсвие возраст/вес';
31..50: if (m>110) and (m<140) then
Label12.Caption:='Идеальное ссответсвие возраст/вес';
51..200: if (m>80) and (m<110) then
Label12.Caption:='Идеальное ссответсвие возраст/вес';
else
Label12.Caption:='Ваш вес несоответсвует росту';
end;

if radiobutton2.Checked then begin
Label8.Caption:=IntToStr(r);
j:=r-110;
if (j=r-105) or (j<r-105) then
Label10.Caption:=inttostr(j);

case g1 of
10..30: if (j>22) and (j<110) then
Label12.Caption:='Идеальное ссответсвие возраст/вес';
31..50: if (j>110) and (j<140) then
Label12.Caption:='Идеальное ссответсвие возраст/вес';
51..200: if (j>80) and (j<110) then
Label12.Caption:='Идеальное ссответсвие возраст/вес';
else
Label12.Caption:='Ваш вес несоответсвует росту';
end;

Программа выдаёт сообщения постоянно что вес соотведствует возврасту какая бы разница не была. не идёт проверка на строк к примеру if (j>22) and (j<110) then , а тупо проверяеться 10..30. Мне сказали что сдесь надо поменять буквльно пару строк но я немогу догнять каких Помагите, что не понятно обьяснил спрашуйте

[_SERGEYX_]

Жми F8 и построчно смотри значения переменных. Ошибку сразу увидишь.