Длинная арифметика. Сложение - Free Pascal (387)

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

Задача такова: Два числа вводятся с клавиатуры, каждое в своей строке. Числа не превышают

10¹⁰⁰⁰⁰

. Произвести сложение чисел. Числа только БОЛЬШЕ нуля.

Решение задачи: «Длинная арифметика. Сложение»

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

uses crt;
var c:char;
     a,b:array[1..10000] of byte;
     na,nb,i:integer;
begin
writeln('Введите первое число, окончание ввода enter');
na:=0;
repeat
c:=readkey;
if c in ['0'..'9'] then
 begin
  write(c);
  na:=na+1; 
  str(c,a[na]);
 end;
if (c=#13)or(n=10000) then writeln;
until (c=#13)or(n=10000) ;

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

Объявлены переменные: c - символ, используемый для чтения одного символа из ввода пользователя; a, b - массивы байтов, используемые для хранения чисел; na, nb, i - целочисленные переменные, используемые для подсчета количества введенных цифр и выполнения операций сложения.
Выводится приглашение для ввода первого числа.
Переменная na инициализируется нулем, что означает, что еще не было введено ни одной цифры.
Начинается цикл, который продолжается до тех пор, пока не будет введено число, состоящее из 10000 цифр, или не будет введен символ #13 (возврат каретки), указывающий на конец ввода.
Внутри цикла программа считывает один символ с помощью функции readkey.
Если считанный символ является цифрой от 0 до 9, то он выводится на экран, а переменная na увеличивается на единицу. Это означает, что была введена еще одна цифра.
Считанный символ преобразуется в строку и сохраняется в соответствующем элементе массива a.
Если считанный символ является символом #13 или если количество введенных цифр достигло 10000, то цикл прекращается и выводится сообщение.