Переделать кусок программы чтобы массивы сложились правильно.

[anasttb]

Не понимаю как это сделать.
Должно быть например: 111+1 = 112

begin
Writeln('Первая строка чисел: ');
for i := 1 to length(s1) do
begin
c1 := StrToInt(s1[i]);
m1[i] := c1;
write(m1[i]:4);
end;
writeln;
Writeln('Вторая строка чисел: ');
for i := 1 to length(s2) do
begin
c2 := StrToInt(s2[i]);
m2[i] := c2;
write(m2[i]:4);
end;
writeln;
writeln('Cумма: ');
for i := 1 to ????????? do
begin
m3[i] := m1[i] + m2[i];
write(m3[i]:4);
end;
end;

[Aleksandr H.]

program A+B;

var
   s1,s2:string;
   a,b:array[1..100] of integer;
   len,i,c:integer;
   
begin
   
   c:=0;
   ReadLn(s1);
   ReadLn(s2);
   len:=length(s1);                      {разбиение строк в елементы массивов}
   for i:=1 to len do
      a[len-i+1]:=Ord(s1[i])-48;
   len:=length(s2);
   for i:=1 to len do
      b[len-i+1]:=Ord(s2[i])-48;

   if length(s1)>length(s2) then len:=length(s1)
   else len:=length(s2);
   for i:=1 to len do
    begin
      c:=c+a[i]+b[i];         {переменная c будет в дальнейшем использоваться для переноса числа в следующия ряд}
      a[i]:=c mod 10;         {результат сложения запишем в массив а} 
      c:=c div 10;
    end;
   if c>0 then begin
      len:=len+1;
      a[len]:=c;
    end;
   for i:=len downto 1 do     
      Write(a[i]);
end.