Перевод римских цифр в арабские

[vasektemuprosek]

Суть программы. Вводим с клавиатуры римское число, а нам выводит его арабский вариант. Пример: ввели MMXXII, вывело 2022. Самая сложная часть - программа должна проверять введенное число на наличие ошибок. То есть, нельзя вводить то же число 4 раза подряд (MMMM, XXXX и т.д.); так же есть правила вычитания: IV, IX, XL, XC, CD, CM (Числа IC, IM и т.д. неверны).
Программа на Turbo Pascal 7.
В интернете полно программ, но во всех что то не работает. Заранее спасибо за помощь.

[Stilet]

но во всех что то не работает

Показывай что именно не работает )

[vasektemuprosek]

PHP код:

uses crt;
const
R: Array[1..13] of String = ('I','IV','V','IX','X','XL','L','XC','C','CD','D','CM','M');
A: Array[1..13] of Integer = (1,4,5,9,10,40,50,90,100,400,500,900,1000);

function Roman(n: Integer): String;
var Result: String; i: Integer;
begin
Result:= '';
i:= 13;
while n>0 do begin
while a[i]>n do Dec(i);
Result:= Result + R[i];
Dec(n,a[i]);
end;
Roman:= Result;
end;
function Arabic(S : String) : Integer;
var Result: Integer; i,p:Integer;
begin
Arabic:= -404;
Result:= 0;
i:= 13;
p:= 1;
while p<=Length(S) do begin
while copy(s, p, length(R[i])) <>R[i] do begin
Dec(i);
if i = 0 then exit;
end;
Result:= Result + A[i];
p:= p + Length(R[i]);
end;
if Roman(Result) = s then Arabic:= Result
end;
var n, Err: integer;
s: String;
begin
clrscr;
writeln('Esli vivedetsya -404 znachit vvedennoe chislo neverno');
write('Vvedite chislo: '); readln(s);
val(s, n, Err);
write('Rezultat: ');
if Err = 0 then
writeln(Roman(n)) else writeln(Arabic(s));
readln
end. 


Тут много лишнего кода, который переводит и туда и обратно. Мне нужно только из римского в арабское. Плюс тут кривой вывод сообщения об ошибке. А так, переводит правильно. Выпилить бы отсюда индийский код и пофиксить вывод - и было бы отлично.
Я пробовал убирать функцию перевода из римских чисел, но без нее не работает прога. Все бы и так сошло, но это прога для курсовой, так что все должно быть вылизано

[vasektemuprosek]

Неужели никто не знает?

[vasektemuprosek]

В общем, заделал другую программу, попроще.

PHP код:

const 
Rims : array[1..13] of string = ('M','CM','D','CD','C','XC','L','XL','X','IX','V','IV','I'); 
Arab : array[1..13] of integer = (1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1); 
var 
N, I, J : integer; 
S: string; 
function Rim2Arab (S:string) : integer;
var I, N : integer;
begin
I:=1; N := 0;
while S<>'' do begin
while Rims[I] = Copy(S, 1, Length(Rims[I]) ) do begin
S := Copy( S, 1+Length(Rims[I]), 255);
N := N + Arab[I]
end;
I:=I+1
end;
Rim2Arab := N
end;
begin
Write('4islo: '); ReadLn(S);
WriteLn(Rim2Arab(S));
readln
end. 


Ее проблемы: не выводит ошибку при вводе VV, IIII, и т.д. Ошибки типа IM IC и т.д. замечает, т.к. их нет в массиве, но программа просто зависает при их вводе. Помогите исправить =/