Aphex acum ti-am testat functia iar daca s1 este egal cu s2 atunci cand se executa: k := StrToInt(S1[i]) + StrToInt(S2[i]) + k; da o eroare pentru ca la for i:= Length(S1) downto 1 lui i i se va atribui S2+1,deci va incerca sa acceseze un element care nu exista,ca sa fixezi aceasta problema trebuie doar sa adaugi un alt test la : if Length(S1)>Length(S2) then Insert(IntToHex (0,Length(S1)-Length(S2)),S2,1) else Insert(IntToHex (0,Length(S2)-Length(S1)),S1,1); ar trebui sa fie asa if Length(S1)>Length(S2) then Insert(IntToHex (0,Length(S1)-Length(S2)),S2,1) else if Length(S2)>Length(S1) then Insert(IntToHex (0,Length(S2)-Length(S1)),S1,1);