Получить максимальное число из трех целых чисел. Даны целые числа 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 m>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.