СТРОКИ. Pascal

[безысходность]

СТРОКИ
Задание: Ввести две строки, состоящие только из нулей и единиц. Считая их изображениями двоичных чисел, сложить их и вывести сумму на экран в двоичной и десятичной системах счисления. Исходные слагаемые в десятичную систему счисления не преобразовывать.

Pascal

помогите пожалуйста совсем не работает не могу понять почему, до преобразования в десятичную систему даже не дошла.. Знаю только Pascal, прошу объяснить именно на этом языке..

Program varuant_7;
Var str_1, str_2:string;
summa_01, summa_10, i, k, error,n:integer;

begin
Writeln('Vvedite str_1=');
Readln(str_1);
Writeln('Vvedite str_2=');
Readln(str_2);
Writeln;

n:=length(str_1);
k:=length(str_2);

if n>k
then while (n>k) do
     begin str_2:=0+str_2;
           k:=k+1;
      end
else while (n<k) do
     begin str_1:=0+str_1;
           n:=n+1;
      end;
n:=k;

Writeln('str_1=', str_1);
Writeln('str_2=', str_2);

for i:= n downto 1 do
begin
     if (str_1[i]='1') and (str_2[i]='1')
     then begin summa_01[i]:='0';
                summa_01[i-1]:='1';
          end
     else begin
               if (str_1[i]='1') or (str_2[i]='1')
               then summa_01[i]:='1'
               else summa_01[i]:='0';
          end;
end;

Writeln('summa_01=',summa_01);
writeln;

end.