Функции перевода чисел Опции

[DeIYIoN]

Нашел на форуме функции перевода из 10-ной СС в любую и наоборот....а как эти функции использовать в одной программе...там ведь переменная "n" разных типов...
Извиняюсь...возможно не там пишу...

[volvo]

Введи 2 переменные вместо одной N. Например,

var
  n_str: string;
  n_long: longint;

, и вызывай то, что нужно для выбранного преобразования:

writeln('PEREVOD CHISEL IZ "G" SISTEMU SCHISLENIYA V 10-nuy');
writeln;
writeln('Vvedite sistemy schisleniya ');
readln(radix);
writeln('Vvedite chislo ');
readln(n_str);
writeln('polychilos ',ToDec(n_str,radix));

и

writeln('PEREVOD CHISEL IZ 10-nou SISTEMU SCHISLENIYA V "G" SISTEMY SCHISLENIYA');
writeln;
writeln('Vvedite chislo');
read(n_long);
writeln('Vvedite sistemy schisleniya');
read(radix);
writeln('polychilos ',FromDec(n_long,radix));

P.S. Зачем Ассемблер? Есть же GotoXY в модуле CRT. От меток я бы тоже посоветовал избавляться...