Про вывод в цикле Опции

[>hamka<]

В цикле выводится сообщение. Оно выводится столько раз, скока неправильно. А как сделать, чтобы только один раз оно выводилось?

[volvo]

Но пользователь может перед этими 10 цифрами и входящими в диапазон ввести нулики. Т.е. при переводе в число строка из 40 символов может преобразоваться в нормальное число. Как лучше сделать?

Лучше всего удалить незначащие нули:

Код

Function LeadZeroes(s: string): string;
 begin
   while s[1] = '0' Do delete(s, 1, 1)
   LeadZeroes := s
 end;

P.S. Не отвлекайтесь от темы... Сколько можно уже? Вам же уже приводили пример полностью работоспособной программы... Зачем это опять переделывать?