Проверить, является ли введенный текст правильной записью значения типа Color

type color=(red, blue, green, yellow, black, white);
var x:color;

uses crt;
 
type color = (red, blue, green, yellow, black, white);
 
var x: color;
    s: string;
 
 
begin clrscr;
write('Vvedite stroku: '); readln(s);
delete(s,pos(' ',s), length(s) - pos(' ',s) + 1);
 
case s of
 'red': x:=red;
 'blue': x:=blue;
 'green': x:=green;
 'yellow': x:=yellow;
 'black': x:=black;
 'white': x:=white;
else
 begin
 writeln('Nedopustimoe znachenie!');
 readkey;
 exit;
 end;
end; {case}
 
writeln('Ok');
readkey; end.

type color=(red,blue,green,yellow,black,white);
var x:color;
    s:string;
Begin
    write('Введите строку: ');readln(s);
    Delete(s,Pos(' ',s),1);
    if s='red' then x:=red else
     if s='blue' then x:=blue else
      if s='green' then x:=green else
       if s='yellow' then x:=yellow else
         if s='black' then x:=black else
          if s='white' then x:=white else
           writeln('Не правильный ввод!');
     if (s='red')or(s='blue')or(s='green')or(s='yellow')or(s='black')or(s='white') then writeln('Ввод правильный!');
     readln;
End.

uses crt;
type color = (red, blue, green, yellow, black, white);
const cv:array[0..5] of string=('red','blue','green','yellow','black','white');
var x: color;
    s: string;
    c:char;
    f:boolean;
    i:byte;
begin
clrscr;
writeln('Введите последовательность строчных латинских букв, окончание ввода пробел:');
s:='';
repeat
c:=readkey;
if c in ['a'..'z'] then
 begin
  write(c);
  s:=s+c;
 end;
if c = ' ' then
 begin
  write(c);
  writeln;
 end
until c=' ';
f:=false;
i:=0;
while(i<5)and not f do
if s=cv[i] then
 begin
  f:=true;
  x:=color(i);
 end
else i:=i+1;
if not f then write('Строка не является записью значения типа color')
else write('Переменной х присвоено значение типа color с индексом ',i);
readkey
end.