Kod z tutoriala nie działa - co robię źle?

Działam wg tego tutorialu:

Wpisuję kod:

var
  sel:char;


begin
  writeln('Please Enter A or B: ');
  readln(sel);

  case sel of
  'A','a': begin
    writeln('A Was Selected');
    end;

  writeln;
  writeln;
  writeln('Press <ENTER> To Quit');
  readln;
end.

i wyskakuje mi:

(26,10) Error: Constant and CASE types do not match
(26,10) Error: constant expression expected.

Co robię źle? Kod jest identyczny, jak w tutorialu....

Proszę o wyrozumiałość. To dopiero mój 2 dzień z programowaniem.

Formatuj kod - będziesz dokładnie widział co jest nie tak;

case sel of
  'A','a': begin
    writeln('A Was Selected');
    end;

To nie jest poprawnie zapisana instrukcja wyboru i nie ma prawa działać, choćby sam Pan Bóg ten kurs stworzył; Brakuje słówka End, które by zakańczało cały blok Case Of; Prawidłowy zapis:

case Sel of
  'A', 'a':
  begin
    WriteLn('A Was Selected');
  end;
end;

Przy czym instrukcja Writeln jest jedna, więc nie musi być grupowana; W takim razie wystarczy usunąć zbędny Begin:

case Sel of
  'A', 'a': WriteLn('A Was Selected');
end;