Переделайте программу так, чтобы найти сумму s1 и s2

Проще никак?

я не вижу пути проще

Нужно добавить:в разделе 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 - код ошибки.