Сложить два целых числа, имеющих более 100 цифр

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
procedure fillArrayByZero(var a : array of byte); // Заполнение массива нулями
var i : cardinal;
begin
  for i := 0 to length(a) do
    a[i] := 0;
end;
 
// Заполнение массива числами из строкового представления числа,
// Если число меньше, чем выделенный для него массив, то ведущие нули нужны для вычислений.
procedure fillArray(var a : array of byte; s : string);
var i : cardinal;
    n : cardinal;
begin
  n := length(a)-1;
  for i := 0 to length(s) do
    a[n-i] := ord(s[i])-ord('0');
end;
 
// Сложение двух целых положительный чисел представленных в виде массива, со стуктурой описаной ниже.
procedure plus(var c : array of byte; a, b : array of byte);
// n - длина строкового представления числа,
// d - кол-во десятков от сложения чисел от 0 до 9,
// m - остаток от деления чисел от 0 до 9
var n, i : cardinal;
    d, m : integer;
begin
  n := length(a)-1;
  m := 0;
  d := 0;
  for i := 0 to n do
  begin
    d := (a[i]+b[i]+d) div 10; // То, что не помещается в текущий разряд
    m := (a[i]+b[i]+d) mod 10; // Текущий разряд суммы равен
    c[i] := m; // Разряд числа суммы
  end;
  c[n] := d; // Если появится новый разряд от сложения двух достаточно больших чисел
  if (c[n] = 0) then // Разряд не появился
    setlength(c, n+1); // Убираем его
end;
 
procedure print(a : array of integer); // Вывод напечать числа в массиве.
var i, n : cardinal;
begin
  n := length(a)-1;
  for i := 0 to n do
    write(a[n-i]);
end;
 
var
  a : array of byte; // первое число
  b : array of byte; // второе число
  c : array of byte; // их сумма
  s1, s2 : string; // строковый вид складываемых чисел
  n : cardinal;
begin
  readln(s1); // читаем первое число как строку
  readln(s2); // читаем второе число как строку
  if (length(s1) > length(s2)) then // ищем число с наибольшим кол-вом разрядов
    n := length(s1)
  else
    n := length(s2);
  setlength(a, n);
  setlength(b, n);
  setlength(c, n+1); // по определению суммы, результат сложения двух чисел может иметь на 1 разряд больше чем одно из чисел с наибольшим разрядом
  fillArrayByZero(a); // Заполняем число как массив нулями
  fillArrayByZero(b); // Заполняем число как массив нулями
  fillArrayByZero(c); // Заполняем число как массив нулями
  fillArray(a, s1); // Заполняем число как массив коэффицентами разрядов числа как строки
  fillArray(b, s2);
  plus(c, a, b);
end.

var
  s1, s2, s3: String;
  i, d, c: Integer;
begin
  Write('1: '); ReadLn(s1);
  Write('2: '); ReadLn(s2);
  while Length(s1)<Length(s2) do Insert('0',s1,1);
  while Length(s2)<Length(s1) do Insert('0',s2,1);
  s3:=s1; c:=0;
  for i:=Length(s1) downto 1 do begin
    d:=c+Ord(s1[i])+Ord(s2[i])-2*Ord('0');
    s3[i]:=Chr(d mod 10+Ord('0'));
    c:=d div 10;
  end;
  if c>0 then Insert('1',s3,1);
  while (Length(s3)>1) and (s3[1]='0') do Delete(s3,1,1);
  WriteLn('':3,s3);
end.