Сумма длинных чисел

Даны две строки, в каждой из которых содержится длинное натуральное число. В третьей строке сформировать их сумму. (30 баллов) 
Задача городской олимпиады 2005 года.

Program z3;
var a,b,c,z:string;
       i,m,n,k,u,h,d:integer;

begin

            writeln(‘Введите первое число’);

            readln(a);

            writeln(‘Введите второе число’);

            readln(b);

            m:=length(a);

            n:=length(b);

            if m<>n then

                        if m>n then

                                   begin

                                               k:=m;

                                               for i:=1 to m-n do

                                                           b:=’0’+b;

                                   end

                        else

                                   begin

                                               k:=n;

for i:=1 to n-m do

            a:=’0’+a;

                                   end;

            u:=0;

            c:=’’;

            for i:=k downto 1 do

                        begin

                                   val(copy(a,i,1),m,h);

val(copy(b,i,1),n,h); 

d:=m+n+u;

if d>9 then

            begin

                       u:=1;

                       d:=d mod ;

            end

else

            u:=0;

str(d,z);

c:=z+c;

                        end;

if u<>0 then

begin

str(u,z);

c:=z+c;

                        end;

writeln(c);

end.