Переводить число155 у двийкову систему числення

Число 155 делим на два и выписываем остатки.И таким образом получается 10011011

Program textFind;
uses StrUtils;
var text,buffer : String;
var tpos,lastpos,counter,biggest : Integer;
begin
  tpos := 0;
  text := '';
  while(tpos = 0) do begin
    readln(buffer);
    text += buffer;
    tpos := pos('.',buffer)
  end;
  lastpos := 1;
  tpos := PosEx(' ',text,lastpos);
  if tpos = 0 then 
    tpos := PosEx('.',text,lastpos);
  biggest := tpos-1;  lastpos := tpos+1;
  while(not (tpos = 0)) do begin
    tpos := PosEx(' ',text,lastpos);
    if tpos = 0 then
        tpos := PosEx('.',text,lastpos);
    if (tpos-lastpos) > biggest then
        biggest := tpos-lastpos; 
   lastpos := tpos+1;
  end;
  lastpos := 1;  counter := 0;
  tpos := PosEx(' ',text,lastpos);
  if tpos = 0 then
    tpos := PosEx('.',text,lastpos);
  while(not (tpos = 0)) do begin
    if (tpos-lastpos) = biggest then
        counter += 1;
    lastpos := tpos + 1;
    tpos := PosEx(' ',text,lastpos);
    if tpos = 0 then
        tpos := PosEx('.',text,lastpos);
  end;
writeln(counter);
end.

Всё просто, это к слову о том, как считаются циферки в двоичной системе, тут принцип таков:А = 1010Б = 1011Что тут произошло, просто прибавилась 1 единица.Всё что вам тут нужно, это:а. Понять как складываются числа в двоичной системе.б. Прибавить единицу к числу 1011.
Начнём с АВсё просто, нам нужно помнить только две вещи, первая, это то, что у нас всего две цифры, 0 и 1. А вторая, это то, что всё можно решить сложением в столбик)Почему я вспомнил про кол-во цифер, а к тому, что:0 + 0 = 00 + 1 = 11 + 1 = 2 - так не получится) Максимальное число у нас это 1Что же тогда делать?!А вот что, просто перенести на разряд выше, как мы это делали в десятичной системе счислений.Если ты сложишь 1 + 9, у тебя получится 10, то есть ты увеличила разряд второй. Тут так же, следовательно:1 + 1 = 10Проще это понять в столбик:  1
  1
---
10
Надеюсь что теперь понятнее не куда)
Вернемся к БУ нас было число для буквы А 1010, для буквы Б 1011И нужно было сложить 1011 и 1, давай сложим в столбик:  . .1011      11100Смотрим справа на лево 1 + 1 = 10, ноль записали, разряд перенесли выше, там теперь тоже 1 + 1 = 10, снова записали 0 и разряд перенесли выше, 0 + 1 = 1, записали 1, осталась 1 единица, её просто сносим в низ, так и получается 1100ответ: С = 1100