ВВЕСТИ С КЛАВИАТУРЫ ДВА ЧИСЛА .БОЛЬШЕЕ ЧИСЛО ЗАМЕНИТЬ НА ПРОТИВОП. ЧИСЛО МЕНЬШЕ ЧИМЛО ЗАМЕНИТЬ НА НОЛЬ

Плз лучший ответ
//////////////////
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.