Большее из 2 вещественных возвести в квадрат, меньшее в куб

Var a, b: Real; 
begin
  write('Введите число а: ');
  readln(a);
  write('Введите число b: ');
  readln(b);  if a > b then
  begin
    a := a * a;
    b := b * b * b;
  end
  else
  begin
    a := a * a * a;
    b := b * b;
  end;
  writeln('a = ' + a);
  writeln('b = ' + b);
end.