Длинная арифметика. Сложение. Вводятся два числа длиной 0<n<255 . Найти сумму этих чисел

program qq;  
 
  const 
 
  n = 255;  
 
var  
 
  s1, s2: string;  
 
  s,a,b: array[1..n] of integer;  
 
  i, k, st, st1, st2, d,c: integer;   
 
begin  
 
    readln(s1);  
 
    st1 := length(s1) div 2;  
 
    for i := 1 to st1 do   
 
    begin  
 
      c := a[i];  
 
      a[i] := a[length(s1) - i + 1];  
 
      a[length(s1) - i + 1] := c;  
 
    end;  
 
  begin  
 
    readln(s2);  
 
    st2 := length(s2) div 2;  
 
    for i := 1 to st2 do   
 
       c := b[i];  
 
      b[i] := b[length(s2) - i + 1];  
 
      b[length(s2) - i + 1] := c;  
 
  end;    
 
    if length(s1) >= length(s2) then st := length(s1) else st := length(s2); 
 
    k := 0;  
 
    for i := 1 to st do  
 
    begin 
 
      a[i] := ord(s1[i]) - ord('0');  
 
    b[i] := ord(s2[i]) - ord('0');  
 
    k := k + a[i] + b[i];  
 
    s[i]:=k mod 10; 
 
    k:=k div 10; 
 
    end; 
 
    s[st+1]:=k; 
 
    for i:=1 to st do 
 
write(s[i]); 
 
end.

program qq;
const
  n = 255;
var
  s1, s2, st1, st2: string; // Переменные для хранения информации строкового типа.
  s,a,b: array[1..n] of integer;  // Переменные для хранения массивов с преобразованными цифрами.
  i: integer;    // Вспомогательная переменная для организации циклов.
  k, st, e: integer;  // Промежуточные переменные для преобразования символов в цифры.
begin
  writeln('Введите первое число: ');
  readln(st1);
  for i:= length(st1) downto 1 do  // Переворот строки из символов цифр.
    s1:= s1 + st1[i];
  writeln('Введите второе число: ');
  readln(st2);
  for i:= length(st2) downto 1 do  // Переворот строки из символов цифр.
    s2:= s2 + st2[i];
  e:= abs(length(s1)-length(s2));  // Вычисляется разница в строках из символов цифр.
  if length(s1) >= length(s2) then
    begin
      st:= length(s1);
      for i:= 1 to e do    // Добавляются нули в строку из символов цифр которое меньше по длине.
        s2:= s2 + '0';
    end
  else
    begin
      st:= length(s2);
      for i:= 1 to e do    // Добавляются нули в строку из символов цифр которое меньше по длине.
        s1:= s1 + '0';
    end;
  k:= 0;
  for i:= 1 to st do
    begin
      a[i]:= ord(s1[i]) - ord('0'); // Символ преобразуется в цифру
      b[i]:= ord(s2[i]) - ord('0');
      k:= k + a[i] + b[i];          // Цифры суммируются и к ним добавляются цифры, что вышли в старшие разряды.
      s[i]:= k mod 10;             // Полученный результат заносится в массив.
      k:= k div 10;
    end;
  e:= 0;
  if k <> 0 then     // Условие для дополнительного разряда числа собранного из элементов массива.
    begin
     s[st+1]:= k;
     e:= 1;
    end;
  writeln('Сумма двух чисел: ');
  for i:= st + e downto 1 do // Сборка окончательного ответа из элементов массива.
    write(s[i]);
  Readln;
end.

var
  s1, s2: string;
  i, c: byte;
begin
  readln(s1); //ввод первого слагаемого
  readln(s2); //ввод второго слагаемого
  if s1 = '' then s1 := '0'; //защита от пустых строк
  while length(s1) < length(s2) do s1 := '0' + s1; //выравнивание строк
  while length(s2) < length(s1) do s2 := '0' + s2;
  c := 0; //переноса пока нет 
  for i := length(s1) downto 1 do //цикл сложения
    begin
      inc(s1[i], ord(s2[i]) - ord('0') + c); //s1[i] := s1[i] + s2[i] + перенос
      if s1[i] > '9' //если значение разряда > '9',
        then begin //то
          c := 1; //есть перенос
          dec(s1[i], 10) //корректируем значение разряда
        end
        else c := 0 //иначе переноса нет
    end; //конец цикла сложения
  if c = 1 then write(c); //если есть перенос, то печатаем самый старший разряд
  writeln(s1); //печатаем остальные разряды числа
  readln
end.