Новичок в программировании

var
Form1: TForm1;
a, b, c, d, e, a1, b1, c1, d1 : single;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.text);
b:=StrToFloat(Edit2.text);
c:=StrToFloat(Edit3.text);
d:=StrToFloat(Edit4.text);
if (a>25) then a1:= 2.5
else begin
if a>20 then a1:= 1.5
else a>10 then a1:= 1
else a<10 then a1:= 0.5

нужно что а1 изменялся в зависимости от а.
выдает такие ошибки
Компиляция проекта, цель: project1.exe: Код завершения 1, ошибок: 3
unit1.pas(46,15) Error: Illegal expression
unit1.pas(46,17) Error: Illegal expression
unit1.pas(46,22) Fatal: Syntax error, ";" expected but "identifier A1" found