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

program LongSum;
 
var
    b, e, sum: String;
 
procedure add;
// Добавление b к sum
var
    i1, i2, z1, z2, p, r: Integer;
begin
    p := 0;
    i1 := Length(sum);
    i2 := Length(b);
    if i1 < i2 then begin
        sum := '0' + sum;
        i1 := i1 + 1
    end;
    repeat
        z1 := Ord(sum[i1]) - Ord('0');
        z2 := 0;
        if i2 > 0 then z2 := Ord(b[i2]) - Ord('0');
        r := z1 + z2 + p;
        if r >= 10 then begin
            r := r - 10;
            p := 1
        end else begin
            p := 0
        end;
        sum[i1] := Char(r + Ord('0'));
        i1 := i1 - 1;
        i2 := i2 - 1;
    until (i2 <= 0) and ((i1 <= 0) or (p = 0));
    if p = 1 then sum := '1' + sum
 
end;
 
procedure inc1;
// Добавление 1 к b
var
    i, p, r: Integer;
begin
    p := 1;
    i := Length(b);
    repeat
        r := Ord(b[i]) - Ord('0') + p;
        if r >= 10 then begin
            r := r - 10;
            p := 1
        end else begin
            p := 0
        end;
        b[i] := Char(r + Ord('0'));
        i := i - 1;
    until (p = 0) or (i = 0);
    if p = 1 then b := '1' + b
end;
 
begin
// Главная программа
    b:='10000';
    e:='1000009';
    sum:=b;
    repeat
        inc1;
        add;
    until b = e;
    WriteLn(sum);
end.