Римские цифры

[Sergeevich]

Пожалуйсто помогите с задачей, условие такое: Разработать программу, которая заданное целое число от 1 до 1999 выводит на экран римскими цифрами. Делал через условный оператор, но это слишком объемно, глупо и к каждой цифре приходится присваивать римскую. Я думаю это нужно использовать через цикл, но понятия не имею как реализовать , заранее спасибо.

[puporev]

Что- никто с вами не общается.
Делать нужно так:
1. Создаем константу-массив записей, где одним полем будет арабская запись числа, вторым полем его римская запись.
2.В цикле(правильно), только в двойном читаем число с перврго разряда до последнего и меняем цифры на соответствующие символы.
Пишется это так:

uses crt;
const
  Tab_per: array[1..13] of record //таблица пересчета - массив записей
    ar: word;  //арабские
    rm: string[2];  римские
  end = ((ar: 1000; rm:'M'),  (ar: 900; rm: 'CM'), (ar: 500; rm: 'D'),
         (ar: 400; rm: 'CD'), (ar: 100; rm: 'C'),  (ar: 90; rm: 'XC'),
         (ar: 50; rm: 'L'),   (ar: 40; rm: 'XL'),  (ar: 10; rm: 'X'),
         (ar: 9;rm: 'IX'),   (ar: 5; rm: 'V'),    (ar: 4; rm: 'IV'),
         (ar: 1; rm: 'I'));
var
  rimch: string;//арабские
  arch: longint;  //римские
  num: byte;  //счетчик цикла
  symb: string[2]; //римский символ
  znch: word;  //значение числа в процессе преобразования
begin
clrscr;
  Write('Vvedite arabskoe chislo: ');
  ReadLn(arch);
  rimch := '';//римский символ-пустая строка
  num := 1; //смотрим первый разряд(у вас 1000)
  repeat
    symb := Tab_per[num].rm;//первый символ M
    znch := Tab_per[num].ar; //первое число 1000
    while znch <= arch do  //пока значение числа меньше или рано заданному
       begin
         rimch := rimch + symb; //добавляем римские символы
         Dec(arch, znch);  //уменьшаем число на значение(сначала вычитаем 1000, потом сотни и т.д )
       end;
    Inc(num);//переходим к следующему разряду числа
  until arch <= 0; //кончилось число-заканчиваем
  WriteLn('Rimskoe chislo: ', rimch);
  Readln
end.

[Sergeevich]

Спасибо за помощь