PHÉP CỘNG 2 SỐ TỰ NHIÊN(chương trình con)

Đề : 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ố).

Uses crt;
Var so1,so2,kqua:string;
Procedure LamDayXau(Var st1,st2:string);
{Them so 0 vao truoc xau ngan}
var i:Byte;
Begin
If Length(st1)>Length(st2) Then
For i:=1 To Length(st1)-Length(st2) Do st2:='0'+st
 Else
 For i:=1 To Length(st2)-Length(st1) Do st1:='0'+s1;
End;
Function Cong(st1,st2:string):string;
 Var i,a,b,c,sodu:Byte;
           code:integer;
           st,ch:string;
Begin
st:=''; sodu:=0;
LamDayXau(st1,st2);
{Lấy từng số của 2 xâu: từ phải sang trái}
For i:=Length(st1) DownTo 1 Do
Begin
{Đổi ký tự sang số nguyên}
     Val(st1[i],a,code);
     Val(st2[i],b,code);
{Tính tổng của 2 số a,b vừa lấy ra cho vào biến c}
     c:=(a+b+sodu) MOD 10;
{Lấy phần dư của tổng a+b}
    sodu:=(a+b+sodu) DIV 10;
{Đổi số nguyên c sang xâu ký tự ch}
    str(c,ch);
{Cộng xâu ch vào bên trái xâu kết quả st}
    st:=ch+st;
End;
{Xử lý trường hợp số dư cuối cùng >0}
If sodu>0 Then
     Begin
       str(sodu,ch);
       st:=ch+st;
     End;
Cong:=st;
End;