Длинная арифметика. ASCII

program A+B;
var
s1,s2:string;
a,b:array[1..100] of integer;
len,i,c:integer;
f1,f2:text;
begin
Assign(f1,'INPUT.TXT');  Reset(f1);
Assign(f2,'OUTPUT.TXT'); ReWrite(f2);
c:=0;
ReadLn(f1,s1);
ReadLn(f1,s2);
close(f1);
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(f2,a[i]);
close(f2);
end.

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;

len:=length(s1);    //длина рервого числа
for i:=1 to len do //все символы первого числа
a[len-i+1]:=Ord(s1[i])-48;//берем с конца и преобразуем в массив йифр
//пример
//ввели число строку  '12345678901223'
//получим массив
//[32210987654321]
//складывать начнем с конца
//len-i+1 это просто, например len=14, i=1, res=14-1+1=14,
// т.е. первым берем прследний символ
len:=length(s2);//то же со вторым числом
for i:=1 to len do
b[len-i+1]:=Ord(s2[i])-48;