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

Program If7;

Var
  A, B: Integer;

Begin
  WriteLn('Введите числa A и B: ');
  ReadLn(A, B);
  If A < B Then
    WriteLn(1)
  Else
    WriteLn(2);

End.