Встречено else, а ожидалось ';' - PascalABC.NET

Формулировка задачи:

var
a1,b1,a,b: real;
begin
Writeln('Введите А');
readln(a);
Writeln('Введите B');
readln(b);
a1:=0;
b1:=0;
if a>b then
a1:=(a+b)*2;
b1:=(a+b)/2
else
a1:=(a+b)/2;
b1:=(a+b)*2;
writeln('А=', a1,' В=',b1);
end.

Требуется ввести два числа. Меньшее заменить полусуммой, а большее – удвоенным произведением. Программа выдает ошибку, что не так?

Решение задачи: «Встречено else, а ожидалось ';'»

Листинг программы

if a>b then
begin
 a1:=(a+b)*2;
 b1:=(a+b)/2;
end
else
begin
 a1:=(a+b)/2;
 b1:=(a+b)*2;
end;

Объяснение кода листинга программы

Проверка условия: a > b.
Если условие истинно, то выполняются следующие действия:
- Вычисление значения переменной a1: a1 := (a + b) * 2.
- Вычисление значения переменной b1: b1 := (a + b) / 2.
Если условие ложно, то выполняются следующие действия:
- Вычисление значения переменной a1: a1 := (a + b) / 2.
- Вычисление значения переменной b1: b1 := (a + b) * 2.