Дано трехзначное число N.Определить,какая из его цифр наибольшая — Pascal(Паскаль)

var
a,b,c,d:integer;
begin
readln(a);
b:=a mod 10;
c:=a div 100;
d:=a div 10 mod 10;
if (b>c) and (b>d) then  writeln('3-я цифра числа наибольшая')
    else if c<d then writeln('2-я цифра числа наибольшая')
    else writeln('1-я цифра числа наибольшая');
end.