Вводятся значения двух цифр. напечатать максимальное двузначное число, которое можно сформировать из этих цифр или сообщение, что таких двузначных чисел не существует. (pascal)

Program op;
uses crt;
var a, b, max, min:integer;
Begin
clrscr;
writeln('Введите первое число ');
readln(a);
writeln('Введите второе число ');
readln(b);
If a>b then max:=a min:=b else max:=b min:=a;
writeln(max min);
end.