Помогите ражувать задачку по DELPHI

[Михаил70]

Задача: Дано целое число. Определить сумму двух старших цифр и двух младших цифр числа.

Представляю код данной задачи. Сразу оговорюсь, что код написан без ошибок. А теперь вопрос. Напишите мне пожалуйсто коментарий к каждой строчки. И еще, в задаче обявленны следующие переменные i,k,n,m,s1,s2 и переменная логического типа b. Почему в задачи объявляются именно эти переменные и какую функцию выполняет каждая из них. И почему тут введена переменная логического типа.
Также помогите с вопросом что такое порядок числа в позиционной системе счисления и зачем порядок числа нужно уменьшать на 1, чтобы определить сумму двух старших цифр числа.
Заранее ограмное спасибо всем кто откликнулся.

procedure TForm1.Button1Click(Sender: TObject);
 var i,k,n,m,s1,s2:integer;
  b:boolean;
begin
   n:=strtoint(edit1.Text);
   m:=n;
   s1:=0;
   s2:=0;
   k:=0;
   b:=false;
   while n<>0 do
     begin
      if not b then
     begin
      i:=n mod 10;
      s1:=s1+i;
      n:=n div 10;
       k:=k+1;
       i:=n mod 10;
       s1:=s1+i; // Сумма младших цифр числа
       b:=true;
        end;
        n:=n div 10;
        k:=k+1;//Определяем порядок числа
        end;
           i:=1;
           while i<=(k-2) do //Порядок числа надо уменьшить на единицу
        begin
         m:=m div 10;
          i:=i+1;
        end; //Деление до получения второй цифры с начала в записи числа
         i:=m mod 10; //Старшая цифра числа
         s2:=s2+i;
         m:=m div 10;
         s2:=s2+m mod 10;
          edit3.Text:=inttostr(s1);
          edit2.Text:= inttostr(s2);

[Luke]

procedure TForm1.Button1Click(Sender: TObject);
//Дарагой, абъяви перемений, пущай все будут адын, два, три (целые)
//S1 и S2 - сумма младщих и старших цифр
var i,k,n,m,s1,s2:integer;
//Правда\ложь
b:boolean;
//Паехали!
begin
//Берем число из эдита, преобразуя его из строки в число
n:=strtoint(edit1.Text);
//m приравниваем к этому числу
m:=n;
//Обнуляем все
s1:=0;
s2:=0;
k:=0;
b:=false;
//Пока считанное число не равно 0
while n<>0 do
begin
//Если b равно ложь
if not b then
//Тогда
begin
//i = последняя цифра числа (остаток от деления на основание системы счисления (10))
i:=n mod 10;
//Увеличиваем сумму цифр
s1:=s1+i;
//Делим число на 10, отбрасывая остаток (откидываем последнюю цифру)
n:=n div 10;
//Увеличиваем порядок числа
k:=k+1;
//Вторая с конца цифра числа
i:=n mod 10;
s1:=s1+i; // Сумма младших цифр числа
b:=true;
//Флаг того что сумма младших цифр подсчитана в тру
end;
//Отбрасываем еще одну цифру
n:=n div 10;
k:=k+1;//Определяем порядок числа
end;
i:=1;
while i<=(k-2) do //Порядок числа надо уменьшить на единицу
begin
m:=m div 10;
i:=i+1;
end; //Деление до получения второй цифры с начала в записи числа
i:=m mod 10; //Старшая цифра числа
//Cумма старших цифр
s2:=s2+i;
m:=m div 10;
s2:=s2 + m mod 10;
//Выводим
edit3.Text:=inttostr(s1);
edit2.Text:= inttostr(s2);