Написать . ввести два числа, найти квадрат наибольшего и извлечь квадрат наименьшего

Var a,b:real;
Begin
readln(a,b); 
      if a>b then begin writeln('Квадрат числа',a,'=',a*a);                   
                               writeln('Корень числа ',b,'=',sqrt(b));             
                      end; 
      if b>a  then begin writeln('Квадрат числа ',b,'=',b*b);                   
                                writeln('Корень числа ',a,'=',sqrt(a));             
                      end;                   
End.