Помогите дописать программу на Delphi 7 не могу понять что здесь не так

[matrix8325]

Дано а . Не используя ни каких функций и ни каких операций, кроме умножения, получить а в степени 8 за три операции и а в степени 10 за четыре операции.

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e:real;
begin
a:=StrToFloat(Edit1.Text);
a:=a*a;{a^2}
a:=a*a;{a^4}
a:=a*a;{a^8}
label1.Caption:=FloatToStr(a);
begin
a:=StrToFloat(Edit1.Text);
b:=a*a;{a^2}
c:=b*b;{a^4}
d:=b*b;{a^8}
e:=d*b;{a^10}
label3.Caption:=FloatToStr(e);
end;

end.

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e:real;
begin
a:=StrToFloat(Edit1.Text);
a:=a*a;{a^2}
a:=a*a;{a^4}
a:=a*a;{a^8}
label1.Caption:=FloatToStr(a);
a:=StrToFloat(Edit1.Text);
b:=a*a;{a^2}
c:=b*b;{a^4}
d:=c*c;{a^8}
e:=d*b;{a^10}
label2.Caption:=FloatToStr(e);
end;