[Dotam]

Сообщение от lmikle

Про готовый код тебе сказали. А идеи вот они:
1а. Перевод числа в строку и получение длинны полученного значения - собственно это и есть кол-во цифр.
1б. Написать функцию вида:

Код:

function GetNumberLength(N : Integer) : Integer;
begin
  Result := 0;
  While N > 0 Do
    Begin
      N := N Div 10;
      Inc(Result);
    End;
end;

Дальше, как и в первом случае.

Но как из текста вывести определенное число???
При том что я перебрал пару книг по етому вопросу я нашел только функцию val(перевод из строки в переменную)...