Вывести строку, изображающую двоичную запись числа

// дана строка, изображающая десятичную запись целого положительного числа. 
// вывести строку, изображающую двоичную запись этого же числа
// PascalABC.NET, lamed, 05.02.2011
var
  s1,s2: string;
  x,i:integer;
begin
  write('s1=');
  readln(s1);
  x:= 0;
  for i:= 1 to length(s1) do
    x:= x*10+ord(s1[i])-ord('0');
  s2:= '';
  while x<>0 do
    begin
      s2:=chr(ord('0')+(x and 1))+s2;
      x:= x shr 1;
    end;
  if s2='' then
    s2:='0';
  writeln('s2=', s2);
end.

// дана строка, изображающая десятичную запись целого положительного числа. 
// вывести строку, изображающую двоичную запись этого же числа
// PascalABC.NET, lamed (RFPRo), Kovrov, 05.02.2011
var
  s1,s2: string; // входная и выходная строки
  x,i:integer; // x - число, изображаемое строкой  s1; i - номер позиции при проходе по строке
begin
  write('s1=');
  readln(s1); // считываем строку
  x:= 0; // вначале символов нет, изображаемое число равно нулю
  for i:= 1 to length(s1) do // Length(s) - длина строки, просматриваем каждый символ, начиная с первого
    x:= x*10+ord(s1[i])-ord('0'); 
  // Получаем i-й символ строки, разница между кодом этого символа
  // и кодом символа '0' - есть значение изображаемой цифры. Далее используем формулу Горнера
 
  // Теперь число получено, для перевода в битовую строку
  // необходимо определить значение каждого бита, начиная справа,
  // до тех пор, пока оставшиеся левые биты не будут равны нулю
  
  s2:= ''; // вначале битовая строка пуста
  while x<>0 do // пока есть что записывать
    begin
      s2:=chr(ord('0')+(x and 1))+s2; // x and 1 дает правую цифру
      x:= x shr 1; // сдвиг вправо эквивалентен делению на 2, только быстрей
    end;
  if s2='' then // если число x=0, строка пустая, надо показать '0'
    s2:='0';
  writeln('s2=', s2); // печатаем строку битов
end.