Получить максимальное число из трех целых чисел. Даны целые числа X, Y, Z. Вычислить MAX(X+Y+Z, X*Y*Z). Вычислить MIN(X+Y+Z, X*Y*Z). ПОМОГИТЕ!,у меня постоянно выдает ошибку в паскале

Var
x, y, z, m, n, min, max:integer;
begin
readln(x,y,z);
m:=x+y+z;
n:=x*y*z;
if mgt;n then begin
max:=m;
min:=n;
end else begin
max:=n;
min:=m;
end;
writeln(Max(,m,,,n,)=,max);
writeln(Min(,m,,,n,)=,min);
end.