Найти значение выражения при помощи процедуры максимум из трех - Pascal

procedure max3(x,y,z:real;var mx:real);
begin
if x>y then mx:=x else mx:=y;
if z>mx then mx:=z;
end;
var a,b,c,x,y,z:real;
begin
readln(a,b,c);
max3(a,b,c,x);
max3(a*b,a*c,b*c,y);
if y=0 then write('Значение не определено')
else
 begin
  z:=(x+1)/y;
  write('z=',z:0:2);
 end;
end.