Определить, совпадает ли текст с конечным отрезком ряда 0123456789

[stasig]

В заданныйтекст только входят цифры и буквы. Определить, совпадает ли текст с конечным отрезком ряда 0123456789 (например 9,89,789)

var s:string;
begin
readln(s);
if (pos(s,'0123456789')+length(s)=11) then writeln('yes') else writeln('No');
readln;
end.

Можно ли еще как нибудь решить эту задачу?

[SuperVisor]

var
Yes: Boolean;
S: string;
begin
Yes:=False;
Readln(s);
if pos(s,'0123456789')<>0 then
  if s[length(s)]='9' then Yes=True;
if Yes then Wtileln('Yes')
 else Writeln('No');

[Pihan]

люди добрые, програмисты великие помогите, очень надо на приняла мою задачку, решение не могу выложить удалила препод =(

Определить количество особых элементов матрицы A[1..n,1..m]. Особыми считаются элементы, если они больше суммы остальных элементов столбца.

Респект вам за ранее ат чот меня вовсе заклинила на этой задаче, а надо сдавать уже

решите ПЛЗ