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