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

[DeIYIoN]

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

[volvo]

Вот так будет выглядеть основная программа:

begin
  Zast;

  repeat
    writeln;
    writeln('1. PEREVOD CHISEL IZ 10-nou SISTEMU SCHISLENIYA VO VVEDENNYU');
    writeln;
    writeln('2. PEREVOD CHISEL IZ VVEDENNOY SISTEMU SCHISLENIYA V 10-nuy');
    writeln;
    write('viberete neobhadimoe deistvie (1/2) '); readln(t);
    case t of
      1:
      begin
        clrscr;
        writeln('PEREVOD CHISEL IZ 10-nou SISTEMU SCHISLENIYA V "G" SISTEMY SCHISLENIYA');
        writeln;

        write('Vvedite chislo: '); readln(n_long);
        write('Vvedite sistemy schisleniya: '); readln(radix);
        writeln('polychilos ',FromDec(n_long,radix));
      end;
      2:
      begin
        clrscr;
        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));
      end;

      else begin
        writeln('Takogo punkta v menu net!!!');
        ReadKey;
      end;
    end;

    write('once again? (Y/N)'); readln(a);

  until not (a in ['Y', 'y']);
End.

, и никаких меток...