Перевод из 10сс в *сс

[0479]

function Convd(x:integer):char;//Это я как понимаю проверка числа если оно больше 9 то тогда заменяем буквой
begin
if x<10 then Convd:=chr(x+ord('0'))
else Convd:=Chr(x-10+ord('A'));
end;
function _10toR(N,R:integer):string;//Сама функция перевода десят числа в любую CC
var s:string;
begin
s:='';
repeat
s:=convd(N mod R)+S;
N:=N div R
until N=0;
_10toR:=s;
end;

Доброго времени суток.
Помогите пожалуйста разъяснением программного кода функции по переводу из 10cc в любую другую cc.Суть то ясна мы делим число на основание и выписываем остатки.Если можно то разъясните пожалуйста технически какие процессы выплняются на строках которые я отметил красным.Заранее благодарен.

[phomm]

ну тут всё просто...

if x<10 then Convd:=chr(x+ord('0'))
else Convd:=Chr(x-10+ord('A'));

если число в десятичной системе меньше 10, то представляющий его символ записать как символ под номером [само число+порядковый номер нуля], иначе ( число больше или равно 10) записать результирующий символ как букву, номер символа которой [число -10 +номер буквы А]

s:=convd(N mod R)+S;
N:=N div R

здесь вызываем предыдущую функцию передавая ей остаток от деления исхдного числа в 10сс на новое основание, и в итоге записывается в результирующую строку 1 символ, после чего целочисленно делим иходное число на новое основание и присваиваем переменной , где и было это число, таким образом отбрасываем только что учтенный символ, и это происходит пока число не обнулится (это ты уже не отмечал красным, просто это цикл)

[0479]

Спасибо большое.Теперь всё понятно.)))