Перевод из одной системы счисления в другую - Pascal (80727)

Формулировка задачи:

Дали задание: написать программу для перевода из одной системы счисления в другую. Системы счисления задаются с клавиатуры. Т.е. Программа спрашивает В какой системе будет число. Пишу "2" Программа "введите число в двоичной системе" Ввожу число. Программа спрашивает "В какую систему будем переводить?" Отвечаю"10" Ответ на экране Число N в двоичной системе = числу М в десятичной системе и так применительно к другим системам Вообще не понимаю как делать

Решение задачи: «Перевод из одной системы счисления в другую»

Листинг программы

uses
  crt;
var
  cs1,cs2,res,change:integer;
  TD:string;
{ГґГіГ*ГЄГ¶ГЁГї ГЇГҐГ°ГҐГўГ®Г¤Г* Dec Г·ГЁГ±Г«Г* Гў Г«ГѕГЎГіГѕ Г±Г±}
function FromDec(n,r:longint):string;
var
  s:String;
const
  digit:string[16]='0123456789ABCDEF';
begin
  s:='';
  repeat
    s:=digit[(n mod r)+1]+s;
    n:=n div r;
  until n=0;
    FromDec:=s;
end;
{ГґГіГ*Г¶ГЁГї ГЇГҐГ°ГҐГўГ®Г¤Г* Г«ГѕГЎГ®Г© Г±Г± Гў Dec}
function ToDec(n:string;r:longint):longint;
var
  m,i:longint;
const
  digit:string[16]='0123456789ABCDEF';
begin
  m:=0;
  while n[1]='0' do
    delete(n,1,1);
  for i:=1 to length(n) do
    m:=m*r+pos(n[i],digit)-1;
  ToDec:=m;
end;
{Г®Г±Г®Г*Г®ГўГ*Г*Гї ГЇГ°Г®ГЈГ°Г*Г¬Г¬Г»}
begin
  writeln('Г‚ГўГ»ГЎГҐГ°ГЁГІГҐ ГЁГ§ ГЄГ*ГЄГ®Г© Г±Г± ГЇГҐГ°ГҐГўГ®Г¤:');
  writeln('-------------------------------------------------------------------------------');
  writeln('1: ГЁГ§ 2 Г±Г±');
  writeln('2: ГЁГ§ 4 Г±Г±');
  writeln('3: ГЁГ§ 5 Г±Г±');
  writeln('4: ГЁГ§ 7 Г±Г±');
  writeln('5: ГЁГ§ 8 Г±Г±');
  writeln('6: ГЁГ§ 9 Г±Г±');
  writeln('7: ГЁГ§ 10 Г±Г±');
  writeln('8: ГЁГ§ 16 Г±Г±');
  writeln('-------------------------------------------------------------------------------');
  write('Г‚ГЂГ

Объяснение кода листинга программы

Объявляются переменные:
- cs1 (тип: integer) - для хранения системы счисления, из которой происходит перевод
- cs2 (тип: integer) - для хранения системы счисления, в которую происходит перевод
- res (тип: integer) - для хранения результата перевода
- change (тип: integer) - вспомогательная переменная
- TD (тип: string) - для хранения числа, которое будет конвертироваться
Описаны функции FromDec и ToDec для выполнения перевода чисел из одной системы счисления в другую.
В основной части программы происходит вывод меню выбора системы счисления для перевода. Примечание: Код представлен не полностью, поэтому остальная программа не показана.