Строки, Проверка условия Опции

[Yurka]

Помогите составить програмку:
Условие:
Задан непустоой текст, в который входять только буквы и цыфры. Проверить или удовлетворяет он такое условие, что в текст входят только одна цыфра причём её значение равно длине текста

[volvo]

Yurka
А если вот так?

Код

var
 s: string;
 n,i: integer;
begin
 writeln('text:');
 readln(s);
 for i := 1 to length(s) do
   if s[i] in ['0'..'9'] then
     begin
       inc(n);
       if ord(s[i]) - ord('0') <> length(s)
         then inc(n)
     end;

 if n = 1 then
   write('da') else write('net')
end.