Ввести с клавиатуры два числа .большее число заменить на противоп. число меньше чимло заменить на ноль

Плз лучший ответ

program g;
var
q, w: integer;
begin
writeln('Введите первое число');
readln(q);
writeln('Введите второе число 2');
readln(w);
if q>w then
begin
writeln('-', q, ' 0');
end;
if w>q then
begin
writeln('-', w, ' 0');
end;
if q=w then
begin
writeln('Вы ввели равные числа');
end;
end.