Исправить ошибку: "нельзя преобразовать тип integer к string"

const digit : string[2]='01';
var s1,s2,b: string;  {s присвоюєтьсятипданих "string"}
n,m,i,y,x,l,k,a:integer;{i,n присвоюється тип даних "integer"}
begin
begin
repeat
writeln('Введите число в СС 2');  {Вводим число в двоичной системе счисления}
readln(s2);
i:=1;
while (i<=length(s2))and (s2[i] in ['0','1']) do inc(i);
if i<=length(s2) then writeln('Число введено неверно, повторите');{Проверка на наличие правильных символов в строке}
until i>length(s2);
while s2[1]='0' do {Цыкл с постусловием}
delete(s2,1,1); {Удаляет не правильные символы и возвращает к предыдущему действию}
n:=0;
for i:=1 to length(s2) do
n:=n*2+pos(s2[i],digit)-1;
writeln('Первое число в 10-сч',n)
end;
begin
repeat
writeln('Введите число в СС 2');  {Вводим число в двоичной системе счисления}
readln(s1);
y:=1;
while (y<=length(s1))and (s1[y] in ['0','1']) do inc(y);
if y<=length(s2) then writeln('Число введено неверно, повторите');{Проверка на наличие правильных символов в строке}
until y>length(s2);
while s1[1]='0' do {Цыкл с постусловием}
delete(s1,1,1); {Удаляет не правильные символы и возвращает к предыдущему действию}
m:=0;
for y:=1 to length(s1) do
m:=m*2+pos(s1[y],digit)-1;
writeln('Второе число в 10-сч',m);
 
k:=(n*m);
writeln(k);
end;
begin
 
writeln('Переводим число в двоичную систему счисления');
k:='';
while a>0 do
 begin
  k:=inttostr(a mod 2)+k;
  a:=a div 2;
 end;
writeln(k);
end
end.

writeln('Переводим число в двоичную систему счисления');
b:='';
while k>0 do
 begin
  b:=inttostr(k mod 2)+b;
  k:=k div 2;
 end;
writeln(b);