Cộng hai số lớn

Viết chương trình thực hiện phép cộng 2 số tự nhiên lớn (không quá 255 chữ số).
                                                                 Giải
Var
       i,a,b,c,code,x,y,tg: Integer; s,s1,s2,tam: String;
BEGIN
       Write('Nhap so thu nhat, so thu hai : '); Readln(s1, s2);
       x:= length(s1); y:= length(s2);
       Repeat
           If x > 0 Then
               begin Val(s1[x],a,code); x:=x-1; end
           else a:=0;
           If y > 0 Then
               begin Val(s2[y],b,code); y:=y-1; end
           else b:=0;
           c:= (a+b+tg) mod 10;tg:= (a+b+tg) div 10;Str(c,tam);s:=s+tam;
       Until (x=0) and (y=0);
       If tg > 0 Then
           begin
               Str(tg,tam); s:=s+tam;
           end;
       Write('Ket qua: ');
       For i:=length(s) downto 1 do Write(s[i]);
       Readln;
END.