Даны два числа. Вывести порядковый номер меньшего из их

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadReal2('Введите два числа');
  var d:=a-b;
  Writeln(dgt;0 ? 2 : d=0 ? 0 : 1)
end.

Примеры
Введите два числа 5.7 9
1

Введите два числа 8.5 -6.4
2

Введите два числа 2 2.0000
0

В заключительном случае 0 означает, что числа равны и нет номера большего числа.

Var
  a,b: integer;
begin
 writeln('Введите последовательно два числа');
 readln(a);
 readln(b);
 if alt;b then
  writeln('наименьшее число под номером 1')
 else
  writeln('меньшее число под номером 2');

readln; задержка
end.

Тест
Введите поочередно 2 числа
10
15
Меньшее число под номером 1.