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

program qq;
var a,b:integer;
begin
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
if a>b then
writeln(b);
or
writeln(a);
end.