Помогите составить алгоритм и программу(в паскале) !

Если один больше двух? Пиши условие полностью. Если первая цифра больше второй?

var a:integer;
begin
readln(a); if a div 10 > a mod 10 then writeln(a mod 10*10+a div 10) else writeln(a); readln
end.

ввод н
а1=н\10
а2=н-а1*10
если а1>а2 то н=а2*10+а1

вывод н

на мыло кину