Дано трехзначное число. Вывести Yes, если его цифры образуют подрастающую или

Const N=10;
var i, b, s: integer;
    a: string;
begin
     readln(b);
     a := inttostr(b);
     for i := 1 to length(a) do
         if (strtoint(a[i]) gt; s) then
            s := strtoint(a[i])
         else
             s:=10;
     if (s = 10) then writeln('No') else writeln('Yes');
end.

Фортуны =)