Написать программа в паскаль: ввести 2 числа вычислить из большего меньшее

Первый вариант:

Var
   a,b:real;
Begin
Write('Введите два числа: ');ReadLn(a,b);
if a>b then Write(a-b)
else Write(b-a)
End.

Второй вариант:

Var a,b:real;
Begin
Write('Введите два числа: ');ReadLn(a,b);
WriteLn(Abs(a-b))
End.