Введите 2 числа a ,b выведите на экран порядковый номер меньшего из них

Program qq;
var a,b:integer;
begin
  writeln('Введите два числа');
  readln(a,b);
  if a=b
  then writeln('Числа равны')
  else if a<b
         then writeln(1)
         else writeln(2);
end.

Program p1;
var a,b:integer;
begin  writeln('Введите два числа');
readln(a,b);
if a=b
then writeln('Числа равны')
else if a<b
then writeln(1)
else writeln(2);end.