Создать множественный тип Color (Pascale)

[adrenalin142]

Здравствуйте, помогите пожалуйста решить задачку.

Задание:
Спроектируйте, реализуйте и протестируйте на ObjectPascal
программу со следующей программной функцией:
- осуществляет запрос и ввод элементов множества в переменную
типа множество с клавиатуры терминала, осуществляет вывод значения переменной типа множество на устройство отображения;
- осуществляет запрос и ввод элементов в массив множеств с клавиатуры терминала,
- осуществляет вывод значения переменной типа массив множеств
на устройство отображения.
Варианты задания выполнить для следующих множеств:
- значений типа (White,Green,Blue,Red,Yellow,Black) .

Вот мое решение, но программа не читает его:

program Elcolor;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

type
  Elemcolor = (White,Green,Blue,Red,Yellow,Black);
//---------------------------------------------------------------------------
  color = set of Elemcolor;
//---------------------------------------------------------------------------
procedure ReadSet(var s: color);

var
  i: Elemcolor;
  answer: Char;
  r: color;
begin
  r:= [White,Green,Blue,Red,Yellow,Black];
  repeat
    write('member of set  - color: ');
    readln(i);
    if not(i in r) then
      begin
        writeln(i, ' - ilegal elemcolor repeat input');
        answer:= #0
      end
    else begin
          Include(s,i);
          write('continue - <Enter>');
          readln(answer)
    end;
  until answer<>#13;
end;
//---------------------------------------------------------------------------
function WriteSet(s: color): string;
var
  i: Elemcolor;
begin
  result:='';
  for i:= Low(Elemcolor) to High(Elemcolor) do
    if i in s then result:= result + i+ ',';
end;
//---------------------------------------------------------------------------
var
  s: color;
  answer: Char;
begin
  repeat
    readSet(s);
    writeln('s = ',WriteSet(s));
    write('continue - <Enter>');readln(answer)
  until answer<>#13;
  readln;
end.

Что я сделал не так?

[min@y™]

Что я сделал не так?

скриншот консоли давай, будем посмотреть.
хотя и так понятно, но хотелось бы убедиться, что ты вводишь строку символов и прога падает.

[adrenalin142]

вот компилятор что выдает

[min@y™]

Сообщение от adrenalin142

вот компилятор что выдает

ну вот, видишь, придётся тебе запилить функцию преобразования

function TryStrToElemcolor(const S:string; out Value: Elemcolor): Boolean;

[adrenalin142]

спасибо) буду переделывать.