Процедуры и Функции. Вычислить значение выражения

function max(a,b:real):real;
begin
     if a>b then max:=a
     else max:=b;
end;
var x,y,result:real;
begin
    write('Введите число х=');readln(x);
    write('Введите число y=');readln(y);
    result:=max(sqrt(x*(x*x+1)),sqrt((x+y)*(x+y)*(x+y)))/(max(x,y)*sqrt(x*x+y*y));
    writeln('Результат=',result:0:4);      
end.

procedure maximum(a,b:real;var max:real);
begin
     if a>b then max:=a
     else max:=b;
end;
var x,y,result,max:real;
begin
    write('Введите число х=');readln(x);
    write('Введите число y=');readln(y);
    maximum(sqrt(x*(x*x+1)),sqrt((x+y)*(x+y)*(x+y)),result);
    maximum(x,y,max);
    result:=result/(max*sqrt(x*x+y*y));
    writeln('Результат=',result:0:4);      
end.

maximum(sqrt(x*(x*x+1)),sqrt((x+y)*(x+y)*(x+y)),result);{временно в переменной result будет храниться максимальное значение из числителся}
maximum(x,y,max);{в переменной max будет храниться максимальное значение из знаменателя}