в чём ошибка(программирование на паскаль)?

помогите найти ошибку, задача:
ввести 2 числа меньшее заменить a+b/2, а большее заменить a*b*2.на паскале, после ввода цифр показывает один ответ и всё.
program abc;
var a,b:real;
begin
writeln('введите число a'); read(a);
writeln('введите число b'); read(b);
if a>b then begin
write(a*b*2);
write(a+b)/2);
end;
if a<b then begin
write((a+b)/2);
write (a*b*2);
end;
end.

переправил теперь выполняет первое условие а второе нет