blokada klawiszy readkey-em

Robię na zaliczenie program w PASCAL-u zamieniający liczby rzymskie na arabskie. Program jest prawie gotowy, ale aby go skończyć potrzebuję pomocy.
Jak skonstruować pętlę REPEAT z READKEY-em aby można było wpisać tylko liczby rzymskie (i,I,v,V,x,X itd.), bo udało mi się to tylko z pierwszym znakiem (czyta je jako string), gdyż później można wpisywać co się chce (np. i4w).

Moze while(znak<>enter) if znak_iIVCMLitp write else nie_write

{$x+}
var 
  k:char
  s:string;
begin
  s:='';
  repeat
    k:=upcase(readkey);
    if(k=#0)then readkey;  {dletego $x+   - extended syntax on}
    if(k in['V','M','C','I'])then s:=s+k;
  until k=#13
end