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

Var m,n:integer;
begin
writeln(введите число m );
readln(m);
writeln(введите число n );
readln(n);
if (mn) then
   begin
    if (m   else begin n:=m; writeln(m, ,,n); end;
  end
else begin n:=0;m:=0; writeln(m, ,,n);
end;
end.