ошибка ((17) : Нет перегруженной подпрограммы с таким количеством параметров Val')

[Юликс]

Подскажите, пожалуйста, почему в 17 строке выходит ошибка ((17) : Нет перегруженной подпрограммы с таким количеством параметров Val'), не понимаю...

var 
    s1, s2, s3: string;
    n1, n2, n3, l1, l2,l3, i: Integer;
    c: string;
begin
   readln(s1);
    readln(s2);
    l1 := length(s1);
   l2 := length(s2);
     if l1 > l2 then begin
         s3 := s1; l3 := l1;
        s1 := s2; l1 := l2;
        s2 := s3; l2 := l3
     end;
    s3 := ''; n3 := 0;
    for i := l1 downto 1 do begin
        val(s1[i],n1);  { ТУТ ОШИБКА }
        val(s2[l2],n2); l2 := l2 - 1;
        str((n1+n2+n3) mod 10,c);
        s3 := c + s3;
        if n1+n2+n3 > 9 then n3:=1
        else n3 := 0;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

в Паскале процедура val() имеет ТРИ параметра:

http://www.pascal.su/val/

procedure Val(Строка: string; var Переменная; var Ошибка : integer);

Это вы сложение двух чисел, представленных в виде строки (методом сложения "в столбик") пишите?
можете использовать такой "трюк":

 n1 := ord(s1[i])- ord('0');
 n2 := ord(s2[l2])- ord('0');

ну и после того, как вы выровняли строки (сделали их одинаковой длины),
нет никакой необходимости в двух разных переменных для индексации, можно использовать i и для s1 и для s2