Ввести с клавиатуры два целых числа в двоичной форме и вычислить их суммы

uses math;
var s,s1:string;
    a,b,c,i:longint;
function x_2(x:longint):longint;
begin
    x_2:=trunc(power(2,x));
end;
begin
 
    readln(s);
    readln(s1);
 
    for i:=1 to length(s) do
        a:=a+x_2(length(s)-i)*(ord(s[i])-48);
    for i:=1 to length(s1) do
        b:=b+x_2(length(s1)-i)*(ord(s1[i])-48);
    c:=a+b;
    s:='';
    while c>0 do begin
        s:=chr(c mod 2+48)+s;
        c:=c div 2;
    end;
    writeln(s);
 
end.

uses crt;
type mas=array[1..1000] of byte;
//ввод чисел в СС 2
procedure Vvod(var a:mas;var n:integer;c:char);
var s:char;
begin
writeln('Введите число ',c,' в СС2, окончание ввода Enter:  ');
n:=0;
repeat
s:=readkey;
if s in ['0','1'] then
 begin
  write(s);
  inc(n);
  a[n]:=ord(s)-48;
 end
else if s=#13 then writeln;
until s=#13;
clrscr;
end;
//нормирование чисел, у того, где разрядов меньше добавляем 0 впереди
procedure Norm(a:mas;var b:mas;na:integer; var nb,n:integer);
var i,j:integer;
begin
n:=na;
for i:=1 to na-nb do
 begin
  nb:=nb+1;
  for j:=n downto 2 do
  b[j]:=b[j-1];
  b[1]:=0;
 end;
end;
//вывод результата
procedure Vyvod(a:mas;n:integer;k:byte);
var i,p:integer;
begin
write(' ');
if k=0 then //слагаемые
 begin
  p:=0;
  for i:=1 to n do
  if(p=0)and(a[i]=0) then write(' ')
  else
   begin
    p:=1;
    write(a[i]);
   end;
  writeln;
 end
else  //сумма
 begin
  write(' ');
  for i:=1 to n do
  write('-');
  writeln;
  write(' ');
  for i:=1 to n do
  write(a[i]);
 end;
end;
var a,b,c:mas;
    na,nb,i,j,n,p,k:integer;
begin
Vvod(a,na,'A');
Vvod(b,nb,'B');
if na>nb then Norm(a,b,na,nb,n)
else if nb>na then Norm(b,a,nb,na,n)
else n:=na;
p:=0;
for i:=n downto 1 do
  begin
   c[i]:=a[i]+b[i]+p;
   if (c[i]>1)and(i>1) then
      begin
       c[i]:=c[i] mod 2;
       p:=1;
      end
    else p:=0;
  end;
if c[1]>1 then
  begin
    c[1]:=c[1] mod 2;
    n:=n+1;
    for j:=n downto 2 do
    c[j]:=c[j-1];
    c[1]:=1;
    for j:=n downto 2 do
    a[j]:=a[j-1];
    a[1]:=0;
    for j:=n downto 2 do
    b[j]:=b[j-1];
    b[1]:=0;
  end;
Vyvod(a,n,0);
writeln('+');
Vyvod(b,n,0);
Vyvod(c,n,1);
end.

uses math;

power(2,x)