Является ли текст правильной записью римскими цифрами целого числа от 1 до 999, и, если является, распечатать это число арабскими цифрами

 const 
TransTable: array[1..13] of record 
AN: word; 
RN: string[2]; 
end = ((AN: 1000; RN:'M'), (AN: 900; RN: 'CM'), (AN: 500; RN: 'D'), 
(AN: 400; RN: 'CD'), (AN: 100; RN: 'C'), (AN: 90; RN: 'XC'), 
(AN: 50; RN: 'L'), (AN: 40; RN: 'XL'), (AN: 10; RN: 'X'), 
(AN: 9; RN: 'IX'), (AN: 5; RN: 'V'), (AN: 4; RN: 'IV'), 
(AN: 1; RN: 'I')); 
 
 
var 
RomanNumber: string; 
ArabianNumber: longint; 
 
CurNum: byte; 
 
CurSymb: string[2]; 
CurVal: word; 
begin 
Write('Input Arabian Number: '); 
ReadLn(ArabianNumber); 
 
{--- Translate ---------} 
RomanNumber := ''; 
CurNum := 1; 
repeat 
CurSymb := TransTable[CurNum].RN; 
CurVal := TransTable[CurNum].AN; 
 
while CurVal <= ArabianNumber do 
begin 
RomanNumber := RomanNumber + CurSymb; 
Dec(ArabianNumber, CurVal); 
end; 
 
Inc(CurNum); 
until ArabianNumber <= 0; 
{--- End of translate ---------} 
 
WriteLn('Roman Number: ', RomanNumber); 
end.

uses crt;
const rc:string='IVXLCDM';
      ac:array[1..7] of integer=(1,5,10,50,100,500,1000);
var c:char;
    s:string;
    i,k:byte;
    n:longint;
    a:array[1..50] of integer;
begin
clrscr;
writeln('Введите строку из заглавных латинских букв, окончание ввода пробел');
s:='';
repeat
c:=readkey;
if c in ['A'..'Z'] then
 begin
  write(c);
  s:=s+c;
 end;
if c=#32 then writeln;
until c=#32;
k:=0;
for i:=1 to length(s) do
if pos(s[i],rc)=0 then k:=1;
if k=1 then
writeln('Введенная строка не является правильной записью римского числа')
else
 begin
  for i:=1 to length(s) do
  a[i]:=ac[pos(s[i],rc)];
  n:=0;
  for i:=1 to length(s) do
   begin
    n:=n+a[i];
    if a[i-1]<a[i] then n:=n-2*a[i-1];
   end;
  if n>999 then writeln('Это правильная запись римского числа, большего 999')
  else write(n);
 end;
readln
end.