zamiana licz arabskich na rzymski jak to zrobic???

witam mam problem dostalem za zadanie napisanie programu w pascalu ktory konwertuje wpisana liczbe arabska z klawiatury na rzymska i wyswietla prosze o pomoc z gory dziekuje

zrób sobie tablice w ktorej bedziesz mial pierwszy element to znak rzymski, w drugiej - odpowiednik liczby arabskiej. tablica musi byc posortowana wedlug elementu drugiego (czyli liczby arabskiej) malejąco.
jak juz masz tablice to cos takiego:

n - liczba arabska
s - liczba rzymska (wynik końcowy)
a - tablica z rzymskimi znakami i arabskimi odpowiednikami (rzymska, arabska)
i - numer do tablicy aktualnie rozpatrywanej liczby rzymskiej

dopóki n > 0 rób
{
  powtarzaj
    Jeśli (n podzielic (bez reszty) a[i].Arabska) > 0) to
      {
      Odejmnij a[i].Arabska od n
      Dodaj do s a[i].Rzymska
      Przerwij tą pętle
      }

    Zwieksz i
  aż i >= Dlugosc a
}

tak "na kolanie" napisane, powinno zadzialac. aha no i sam daj kod, wszystkiego nie dostaniesz :D

E, w artykułach jest o zamianie takiej.

Wielkie dzieki :)

jescze raz dzieki Ludomir :-) ale jezeli ktos moglby jednak napisac kod do tego zadania bylbym naprawde wdzieczny

http://4programmers.net/article.php?id=197 ?