Zamiana Systemu liczbowego Turbo Pascal?

Witam

Mam pytanie jak napisać program zamieniający system liczbowy od 2-16 na dziesiętny w Turbo Pascal ??

Konwersja liczb na dowolny system, tam i z powrotem