Нужно добавить:
в разделе var - a,b,sum : longint; error : integer;
перед close(td) - val(s1,a,error); val(s2,b,error); sum := a+b; writeln(sum);
*Справка: процедура Val(S, x, kod) преобразует строку символов S в число x. Здесь S – строковое выражение, x – числовая переменная, kod - код ошибки.