Сложение длинных чисел

program lab15;
uses crt;
var
n,n1:byte;
sum,y,err:integer;
function zvezda(n:byte):real;
   var i:integer;
       s:string[80];
    begin
     i:=1;
     s:='';
      while i<=n do
       begin
        s:=s+'1';
         inc(i);
       end;
     writeln(s);  Val(s[80],y,err);   writeln('Summa =',y);[
    end;
begin clrscr;randomize;
writeln('1 chislo =');
read(n);
writeln('2 chislo =');
read(n1);
writeln('1 sformirovannoe = ');
zvezda(n);
writeln('2 sformirovannoe = ');
zvezda(n1);
sum:=y+n1;;
writeln('Summa =',y);
readkey
end.

uses crt;
var s1,s2:string;
    a,b,c:array[byte] of byte;
    na,nb,i,t,j,n,p:integer;
    k:integer;
begin
clrscr;
write('Vvedite chislo A:');
readln(s1);
write('Vvedite chislo B:');
readln(s2);
na:=length(s1);
nb:=length(s2);
for i:=1 to na do
  begin
    val(s1[i],t,k);
    a[i]:=t;
  end;
for i:=1 to nb do
  begin
    val(s2[i],t,k);
    b[i]:=t;
  end;
if na>nb then
  begin
    n:=na;
    for i:=1 to na-nb do
      begin
        nb:=nb+1;
        for j:=nb downto 2 do
        b[j]:=b[j-1];
        b[1]:=0;
      end;
   end
else if nb>na then
   begin
     n:=nb;
     for i:=1 to nb-na do
       begin
         na:=na+1;
         for j:=na downto 2 do
         a[j]:=a[j-1];
         a[1]:=0;
       end;
    end
else if nb=na then n:=na;
p:=0;
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
  begin
    c[1]:=c[1] mod 10;
    n:=n+1;
    for j:=n downto 2 do
    c[j]:=c[j-1];
    c[1]:=1;
  end;
writeln('Chislo C:');
for i:=1 to n do
write(c[i]);
readln
end.

uses crt;
var   s1,s2,s3: string;
      mem,i,l,c: integer;
begin
  writeln('Enter first numb '); readln(s1);
  writeln('Enter second numb '); readln(s2);
  mem:=0;
  s3:='';
  if length(s1)>length(s2) then l:=length(s1)
  else                          l:=length(s2);
  if length(s1)>length(s2) then
    for i:=length(s2) to l-1 do
      Insert('0',s2,1);
  if length(s1)<length(s2) then
    for i:=length(s1) to l-1 do
  Insert('0',s1,1);
  for i:=l downto 1 do
   begin
    c:=strtoint(s1[i])+strtoint(s2[i])+mem;
    mem:=c div 10;
    insert(inttostr(c mod 10),s3,1);
   end;
  if mem>0 then insert('1',s3,1);
  write(s3);
  readln;
end.

program nn;
var x,x1:string;
y,y1,sum:integer;
function str2int(var S: string):integer;
var
n,t:integer;
begin
n:=1;
while n<>length(S) do
if S[n] in ['0'..'9'] then inc(n) else delete(S,n,1);
val(S,n,t);
str2int:=n;
end;
begin
writeln('vvedite stroku'); readln(x);
writeln('vvedite stroku'); readln(x1);
y:=str2int(x);
writeln(y);
 
y1:=str2int(x1);
writeln(y1);
sum:=y+y1;
   writeln(sum);
readln;
end.

repeat
write('Введите количество знаков чисел ,  от 21 до 255 n=');
readln(n);
until n in [21.255];
writeln('Введите первое число:');
for i:=1 to n do
 repeat
  readln(a[i]);
 until a[i] in ['0'..'9'];

Var s,ss:string;
Begin
Readln (s);
Readln (ss);
Write (s.ToBigInteger+ss.ToBigInteger);
End.

var
  x, y: string;
  i: integer;
 
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  while length(y) < length(x) do y := '0' + y;
  while length(x) <= length(y) do x := '0' + x;
  for i := length(x) downto 2 do
    begin
      inc(x[i], ord(y[i - 1]) - ord('0'));
      if x[i] > '9' then
        begin
          dec(x[i], 10);
          inc(x[i - 1])
        end
    end;
  if x[1] = '0' then delete(x, 1, 1);
  write('x + y = ', x);
  readln
end.