ПРОГРАММИРОВАНИЕ (паскаль) помогите срочно пожалуйстаааа даны целые числа m и n если числа не равны,то заменить каждое из них одним и тем же числом,равном большему из исходных,а если равны,то заменить числа нулями

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var m:=ReadInteger(m=);
  var n:=ReadInteger(n=);
  if mn then m:=max(m,n) else m:=0;
  n:=m;
  WritelnFormat(m={0}, n={1},m,n)
end.

Тестовое решение:
m= 27
n= 39
m=39, n=39

m= -20
n= -20
m=0, n=0