ПОМОГИТЕ НАПИСАТЬ ЗАДАЧУ.ввести два числа, найти квадрат наибольшего и извлечь квадрат наименьшего

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.