Дано ціле трьохзначне число, яке складається з неоднакових цифр. визначте, яка з його цифр більша: перша чи друга. як правильно написати програму на паскалі?

Var a,b, d:integer;
begin
read (d);
a:=d div 100;
b:=d div 10 mod 10;
if a>b then Write ('перша більша') else Write ('друга більша')
end.