Помогите составить программу на Delphi.. (1 курс)

[gree]

Извиняюсь.. Просто не дописал..
Но всё ровно когда я запускаю программу с этим кодом:

procedure TForm1.Button1Click(Sender: TObject);
var x,y,z,e:real;
b:boolean;
begin
repeat
x:= StrToFloat(Edit1.Text);
y:= StrToFloat(Edit2.Text);
z:= StrToFloat(Edit3.Text);
until (x>0)and(x<180)and(y>0)and(y<180)an d(z>0)and(z<180);
e:=0.000001;
if abs(x+y+z-180)>e then
begin
label1.Caption:='Это не треугольник.';
end
else
begin
label1.Caption:='Это треугольник.'
b:=true;
end;
if b and ((x>90)or(y>90)or(z>90))then label2.Caption:='Этот треугольник тупоугольный.'
else label2.Caption:='Этот треугольник не тупоугольный.';

end;

end.

У меня выделяется строчка: b:=true; Красным... и никаких действий..

[puporev]

Вот что-то слепил. Все-таки капризная эта Делфи, толи дело Паскаль.

[Longedok]

Хех, капризная... [To gree] Точку с запятой строчкой выше поставьте в вашем коде.

[gree]

Спасибо...