Сложение строк - PascalABC.NET

Формулировка задачи:

Есть программа которая должна складывать строки(не надо мне говорить про функцию Concat). Вводные данные str1:='11111111111111111111' str2:='2222222222'; Вывод i='11111111113333333333'. (str1, str2, i:string) Как это сделать?

Решение задачи: «Сложение строк»

Листинг программы

begin
  var s1 := '1111111111';
  var s2 := '22222';
  var s3: string;
  var O := 0;
  while (s2.Length <> 0) do begin
    var e := integer.Parse(s1[s1.Length]) + integer.Parse(s2[s2.Length]) + O;
    s3 := (e mod 10).ToString + s3;
    O := e div 10;
    delete(s1, s1.Length, 1);
    delete(s2, s2.Length, 1);
  end;
  s3 := s1 + s3;
  write(s3);
end.

Объяснение кода листинга программы

Задаются три строки: s1, s2, s3.
Переменная O инициализируется нулем.
В цикле while происходит считывание двух строк до тех пор, пока длина второй строки не станет равной нулю.
Внутри цикла происходит считывание последних двух цифр каждой строки, преобразование их в целые числа и сложение.
Полученное число и его остаток от деления на 10 добавляются к строке s3.
Значение переменной O обновляется путем деления нацело суммы на 10.
Длина первой и второй строк уменьшается на один.
После окончания цикла, первая строка добавляется к s3.
Результат выводится на экран.