Программа Pascal ошибка оператор and.

Question

здесь ошибка с and, помогите исправить) 
program master; 
uses crt; 
var m,n,min,max:integer; 
begin 
randomize; 
m:=random(10)-5; 
n:=random(10)-5; 
writeln('do'); 
writeln('n = ',n); 
writeln('m = ',m); 
begin if m=n then (m:=0) and (n:=0) 
else 
begin 
if m-n < 0 then max:=n 
else max:=m; 
begin 
if m-n < 0 then min:=m 
else min:=n; 
end; 
end; 
end; 
writeln('max = ', max); 
writeln('min = ', min); 
n:=max; 
m:=max; 
writeln('posle'); 
writeln('n = ',n); 
writeln('m = ',m);

end.

ну мне нужно 
Если m=n, то занулить их

Отвечу сам на свой, вопрос) 
Просто пока ждал ответа, исправил все сам. 
var m,n,min,max:integer; 
begin 
randomize; 
m:=random(10)-5; 
n:=random(10)-5; 
writeln('do'); 
writeln('n = ',n); 
writeln('m = ',m); 
begin if m=n then 
begin 
m:=0; 
n:=0; 
end 
else 
begin 
if m-n < 0 then max:=n 
else max:=m; 
begin 
if m-n < 0 then min:=m 
else min:=n; 
end; 
end; 
end; 
writeln('max = ', max); 
writeln('min = ', min); 
n:=max; 
m:=max; 
writeln('posle'); 
writeln('n = ',n); 
writeln('m = ',m);

end.

Александр Беляев · Accepted Answer

что сие за монстр 
begin if m=n then (m:=0) and (n:=0) 
else 
Это пишется не так то что написано бред. Если нам надо вставить больше одного оператора после then или после else или в других случаях используем конструкцию begin операторы end; и никакой такой ереси 
 и про то что условие в скобочках не забываем то бишь получим 
program master; 
uses crt; 
var m,n,min,max:integer; 
begin 
randomize; 
m:=random(10)-5; 
n:=random(10)-5; 
writeln('do'); 
writeln('n = ',n); 
writeln('m = ',m); 
if (m=n) then Begin m:=0; n:=0; end; 
else 
if (m-n < 0) then max:=n; 
else max:=m; 
А вот тут начинается уже ерись слогикой думай 
if m-n < 0 then min:=m 
else min:=n; 
end; 
end; 
end; 
writeln('max = ', max); 
writeln('min = ', min); 
n:=max; 
m:=max; 
writeln('posle'); 
writeln('n = ',n); 
writeln('m = ',m);

Grisha Brinza · Answer

А чего ты ждал?