Получить максимальное число из трех целых чисел. Даны целые числа 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 beginmax:=m;min:=n;end else beginmax:=n;min:=m;end;writeln('Max(',m,',',n,')=',max);writeln('Min(',m,',',n,')=',min);end.