Сложить два 50-значных целых числа

uses crt;
const n=50;
var s1,s2:string[50];
    ch:char;
    a,b,c:array[1..n+1] of byte;
    i,t,j,p,m:byte;
    k:integer;
begin
clrscr;
{ввод чисел строкой}
writeln('Введите первое число из 50 знаков:');
s1:='';
i:=0;
repeat
ch:=readkey;
if ch in ['0'..'9'] then
 begin
  write(ch);
  s1:=s1+ch;
  i:=i+1;
 end;
if i=50 then writeln;
until i=50;
writeln('Введите второе число из 50 знаков:');
s2:='';
i:=0;
repeat
ch:=readkey;
if ch in ['0'..'9'] then
 begin
  write(ch);
  s2:=s2+ch;
  i:=i+1;
 end;
if i=50 then writeln;
until i=50;
{создание масстивов цифр}
for i:=1 to n do
 begin
  val(s1[i],t,k);
  a[i]:=t;
  val(s2[i],t,k);
  b[i]:=t;
 end;
{сложение столбиком}
p:=0;{перенос}
m:=n;
for i:=n downto 1 do
  begin
   c[i]:=a[i]+b[i]+p;
   if (c[i]>9)and(i>1) then
      begin
       c[i]:=c[i] mod 10;
       p:=1;
      end
    else p:=0;
  end;
if c[1]>9 then{если в первой ячейке число больше 9}
  begin
    c[1]:=c[1] mod 10;{берем остаток}
    m:=n+1;{увеличиваем масив}
    for j:=m downto 2 do{сдвигаем его вправо}
    c[j]:=c[j-1];
    c[1]:=1;{пишем 1 в начало}
  end;
writeln('Chislo C:');
for i:=1 to m do
write(c[i]);
readln
end.