но так как я начинающий в паскале, то большинство строчек мне непонятны. прокоментируйте строчки пожалуйста, что какая делает. то есть что в них происходит. спасибо.
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;