In/fi

program projectin;
uses SysUtils,TypInfo;

type
  marja = (mustikka, lehtokuusama, puolukka, vadelma, lumimarja, mansikka);
  Berries = set of marja;
var
   kori: Berries;
   someberry:marja;
   str:string;
   i:integer;
begin
  kori := [];
  writeLn('Valitse jokin marja seuraavista marjoista koriin');
  repeat
    i:=1;
    for someberry in marja do
      begin
        Str := GetEnumName(TypeInfo(marja),ord(someberry));
        writeln(i,' : ',Str);
        inc(i);
      end;
    writeln('0 : poistu ');
    writeln;
    readln (i);
    if i>0 then
      begin
        someberry  :=marja(i-1);
        Include(kori,someberry);
      end;
  until  i=0;
  if (lehtokuusama in kori) or (lumimarja in kori) then
   begin
     writeln ('Sinulla on myrkyllisiä marjoja korissasi');
     if lehtokuusama in kori then
       writeln ('Korissasi on myrkyllinen lehtokuusama!') ;
     if lumimarja in kori then
       writeln ('Korissasi on myrkyllinen lumimarja!');
   end;
  writeln('Joten sinulla oli nämä marjat korissasi:');
  for someberry in kori do
  begin
    Str := GetEnumName(TypeInfo(marja),ord(someberry));
    writeln(Str);
  end;
  readln ;
end.