Вычислить минимум и максимум

var x, y, z, i, max: integer; mas: array[1..3] of integer;
 
begin
 readln(x);
 readln(y);
 readln(z);
 mas[1] := x+y+z;
 mas[2] := x*y*z;
 mas[3] := x*x + y*y - z;
 max := -maxint;
 for i := 1 to 3 do
   if mas[i] > max then max := mas[i];
 
 writeln;
 writeln(max);
 readln
end.

uses crt;
function Max(a,b:real):real;
begin
if a>b then Max:=a else Max:=b;
end;
function Min(a,b:real):real;
begin
if a<b then Min:=a else Min:=b;
end;
var x,y,z,mx,mn:real;
begin
clrscr;
writeln('Введите значения x,y,z:');
readln(x,y,z);
mx:=Max(x+y+z,Max(x*y*z,x*x+y*y-z));
writeln('Max=',mx:0:2);
mn:=sqr(Min(x+y+z/2,x*y*z))+1;
writeln('Min=',mn:0:2);
readln
end.

uses crt;
var x,y,z,k,l: real;
function max (a,b,c: real): real;
var maxp: real;
begin
maxp:=a*ord(a>=b)+b*(a<b);
max:=c*ord(c>=maxp)+maxp*(c<maxp);
end;
function min (a,b: real): real;
begin
min:=a*ord(a<=b)+b*ord(a>b);
end;
begin
clrscr;
writeln('Введите значения x,y,z:');
readln(x,y,z);
k:=max(x+y+z,x*y*z,sqr(x)+sqr(y)-z);
l:=sqr(min(x+y+z/2,x*y*z))-1;
writeln('min^2-1 = ',l);
writeln('max = ',k);
end.