Составить программу вычисления разность двух чисел где из большого вычисляется меньше​

язык программирования pascal
срочно пожалуйста!!!

var n1, n2: integer;

begin

   write('Введите первое число: ');

   readln(n1);

   write('Введите второе число: ');

   readln(n2);

   if n1 > n2 then

       writeln('Разность: ', n1 - n2)

   else

       writeln('Разность: ', n2 - n1);

end.