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

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormActivate(Sender: TObject);
begin
ComboBox1.SetFocus;
end;
 
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
ComboBox1.Items.Add(combobox1.text);
combobox1.Text:='';
end;
end;
 
procedure TForm1.ComboBox1Click(Sender: TObject);
var
st:string;
n,i,nst,ind,j,t:integer;
b:array[1..50] of integer;
  s:longint;
begin
t:=0;
s:=0;
ind:=0;
nst:=combobox1.ItemIndex;
st:=combobox1.Items[nst];
for i:=1 to length(st) do
begin
  if  (st[i] in ['I', 'V', 'X', 'L', 'C', 'D', 'M']) then
  begin
      if st[i]='I'then b[i]:=1;
      if st[i]='V'then b[i]:=5;
      if st[i]='X'then b[i]:=10;
      if st[i]='L'then b[i]:=50;
      if st[i]='C'then b[i]:=100;
      if st[i]='D'then b[i]:=500;
      if st[i]='M'then b[i]:=1000;
  end else
  b[i]:=0;
end;
   for i:=1 to length(st) do
   if (st[i] in ['I', 'V', 'X', 'L', 'C', 'D', 'M']) then
   t:=t+1;
   if t<>length(st) then
   begin
    label4.Caption:='Введена неверная запись римских символов';
    s:=0;
   end
    else
   for j:=1 to length(st) do
   begin
     s:=s+b[j];
     if(j>1)and(b[j-1]<b[j]) then s:=s-2*b[j-1];
     label4.Caption:='Правильная запись римскими цифрами целого числа от 1 до 999 равна числу:';
   end;
   label5.Caption:=inttostr(s);
end;
end.