Разобраться Опции

[BND]

вОт имеется код на паскале. делает он следующее: переводит из десятичной системы счисления в i-ичную.
но так как я начинающий в паскале, то большинство строчек мне непонятны. прокоментируйте строчки пожалуйста, что какая делает. то есть что в них происходит. спасибо.

function DecToOther(x:longint;R:word):string;
var ost:longint;
    s,st,chislo:string;
    i:integer;
begin
     chislo:='';s:='';st:='';
     repeat
        ost:=x mod R;
        x:=x div R;
        if ost>9 then
          st:=chr(ord('A')-10+ost)
        else str(ost,st);
           s:=s+st;
     until x=0;
     for i:=1 to length(s) do
       chislo:=chislo+s[length(s)-i+1];
     DecToOther:=chislo;
end;

[volvo]

function DecToOther(x:longint; R:word): string;
var
  ost: longint;
  s, st, chislo: string;
  i: integer;
begin
  { задаем начальные значения переменным - все "пусто" }
  chislo:='';s:='';st:='';

  { повторяем... }
  repeat
    ost:=x mod R; { запоминаем остаток от деления числа на основание с/с }
    x:=x div R; { а теперь, собственно, делим заданное число на основание с/с }

    { теперь надо "приписать" цифру или букву, соответствующую остатку, к результату... }
    
    {
      здесь есть 2 ветви - если остаток > 9 - то это буква от A и дальше, тогда надо к коду "A"
      прибавить остаток и отнять 10 (отнимать - потому что 10 в 16-ричной с/с соответствует
      A, и если остаток был равен 10, то он как раз и преобразуется в букву "А")
     }
    if ost > 9 then st:=chr(ord('A')-10+ost) 
    else str(ost,st); { иначе (остаток меньше 10) - это просто число, которое переводится в строковое представление }

    {
      Вот, собственно, добавляем остаток (уже переведенный в строку) к текущему результату (почему-то в конец,
      хотя по алгоритму надо бы приписывать остаток спереди)
     }
    s:=s+st; 
  until x=0; { ... а продолжается это все, пока не обработано все исходное число, т.е. пока в результате DIV не был получен 0... }

  { Это таким оригинальным способом переворачивается строка - вот почему, оказывается, число приписывали сзади }
  for i:=1 to length(s) do
    chislo:=chislo+s[length(s)-i+1];
  
  { и возвращаем результат функции }
  DecToOther:=chislo;
end;