Арифметические операции с числами в 2-ной системе счисления

program BooleanDemonstr;
 
var
a,b,c: longint;
kluch: integer;
cod: char;
 
 
procedure VvodChisel2CC(var n: longint);
const
  digit:string[2]='01'; //цифры в двоичной системе счисления.
var
i: Integer;
str: string;
 
begin
  str:='';
  Writeln('Введите число в двоичной системе счисления (только числа "0" и "1").');
  readln(str);
 
  for i:=1 to length(str) do
      while not (str[i] in ['0','1']) do
          begin
          Writeln('Введенный символ "', str[i],'" некорректен!');
          Writeln('Попытайтесь еще раз.');
          Readln(str);
          end;
     while str[1]='0' do
      delete(str,1,1);    //удалим ведущие ноли
      n:=0;                 //получим число в  десятичной системе счисления
      for i:=1 to length(str) do
      n:=n*2+pos(str[i],digit)-1;
 
 
end;
 
 
 
 
procedure VyvodChisel2CC(n: longint);
Const
 a = '01';
var
str: string;
i:Integer;
begin
str := '';
repeat
 str := ((a[n mod 2 + 1]) + str);
 n := n div 2;
until (n = 0);
writeln('Результат:');
writeln(str);
end;
 
 
 
 
begin
 
repeat
writeln;
writeln ('Введите число, если хотите увидеть результат операций с ');
writeln ('числами в двоичной системе счисления.');
writeln ('Введите 1, для демонстрации операции сложения.');
writeln ('Введите 2, для демонстрации операции вычитания.');
writeln ('Введите 3, для демонстрации операции умножения.');
writeln ('Введите 4, для демонстрации операции деления.');
 
Readln(kluch);
case kluch of
1: begin
     writeln ('Операция сложения с:= a + b');
     VvodChisel2CC(a);
     VvodChisel2CC(b);
     c:=a + b;
     VyvodChisel2CC(c);
   end;
2: begin
 
     writeln ('Операция вычитания с:= a - b');
     VvodChisel2CC(a);
     VvodChisel2CC(b);
     c:= a - b;
     VyvodChisel2CC(c);
   end;
3: begin
     writeln ('Операция умножения с:= a * b');
     VvodChisel2CC(a);
     VvodChisel2CC(b);
     c:= a * b;
     VyvodChisel2CC(c);
 
   end;
4: begin
     writeln ('Операция деления с:= a / b (целочисленное)');
     VvodChisel2CC(a);
     VvodChisel2CC(b);
      c:= a div b;
     VyvodChisel2CC(c);
 
   end;
 
end;
writeln;
writeln('Введите символ "i" и нажмите клавишу "Enter", чтобы выйти из программы.');
writeln('Нажмите клавишу "Enter" чтобы продолжить.');
readln(cod);
 
until  Ord(cod)=ord('i');
 
 readln();
end.