procedure Val(Строка: string; var Переменная; var Ошибка : integer);Действие: Выполняет преобразование строки, изображающей целое или вещественное число, в число. Полученное значение присваива- ется переменной, указанной при вызове процедуры. Если преобразование не может быть выполнено, то в переменную Ошибка записывается номер символа строки, который явился причиной неудачи преобразования. Если преобразование выполнено успешно, то значение сшибка равно нулю.