R:=max(max(x+y,z),y+z); ";" (точка с запятой) лишняя function max(x, y, z:real):real; на function max(x,y : real) : real;
begin
if (x > y) then result := x
else result := y;
end;function max(x,y : real) : real;
begin
if (x > y) then result := x
else result := y;
end;