Задача по внешним процедурам pascal

[Олесенька]

Дано натуральное число n. Дописать к нему цифру k в конец и в начало (если это возможно, т.е. результат не выйдет за диапазон допустимых значений), или сообщить о невозможности выполнения операции.

помогите решить плз

[Stilet]

Допустим так:

str(i,s);
val(k+s+k,i,e);
if e>0 then write('Ошибка') else write(i);

s типа строка, i целого типа, к - цифра в виде символа, чтоб удобнее было.

[Олесенька]

да,такой вариант я рассматривала..
но мне надо с использованием внешних процедур