Cho hai số nguyên dương lớn có có độ dài không quá 200 chữ số. Hãy đưa ra tổng và hiệu của 2 số nguyên đó?

function  Add(s1,s2:string):string;

var  i,nho,z,x,y:longint;  s:string;

begin

   while length(s1)<length(s2) do s1:='0'+s1;

   while length(s2)<length(s1) do s2:='0'+s2;

   i:=length(s1);    nho:=0;  s:='';

   while i>=1 do

   begin

      x:=ord(s1[i]) - ord('0');

      y:=ord(s2[i]) - ord('0');

      z:=x+y+nho;

      s:= chr(z mod 10 + ord('0')) + s;

      nho:= z div 10;

      dec(i);

   end;

   Add:=s;

end;

{======Phép trừ ===========}

function  sub1(s1,s2:string):string;

var  i,nho,z,x,y:longint;  s:string;

begin

   while length(s1)<length(s2) do s1:='0'+s1;

   while length(s2)<length(s1) do s2:='0'+s2;

   i:=length(s1);    nho:=0;  s:='';

   while i>=1 do

   begin

      x:=ord(s1[i]) - ord('0');

      y:=ord(s2[i]) - ord('0');

      z:=x-y-nho;

      if z<0 then

             begin

               z:=z+10;

               nho:=1;

             end

      else nho:=0;

      s:= chr(z + ord('0')) + s;

      dec(i);

   end;

   sub1:=s;

end;

{=================}

            // Với trường hợp số bị trừ nhỏ hơn số trừ ta thực hiện hàm sau:

function sub(s1,s2:string):string;

begin

 if length(s1) > length(s2) then sub:=sub1(s1,s2)

 else

    if length(s2)>length(s1) then sub:='-'+sub1(s2,s1)

    else

      if s1>=s2 then sub:=sub1(s1,s2)

      else  sub:='-'+sub1(s2,s1);

end;