Bonsoir,

J'ai 2 erreur à la ligne 4 : illegal expression et ordinal expression expected

quelqu'un peut m'expliquer pourquoi svp ?

merci

1repeat
2..compteurJour := compteurJour + 1;
3..case compteurJour of :
4....lundi : begin
5..............write(' lundi : heures : '); readln(heureTravail);
6..............while not (heureTravail in [heureMin..heureMax]) do begin
7................write('Erreur, reencodez : '); readln(heureTravail);
8..............end;
9..............write(' minutes : '); readln(minuteTravail);
10.............while not (minuteTravail in [minuteMin..minuteMax]) do begin
11...............write('Erreur, reencodez : '); readln(minuteTravail);
12.............end;
13...........end;
14....mardi : begin
15..............write(' mardi : heures : '); readln(heureTravail);
16..............while not (heureTravail in [heureMin..heureMax]) do begin
17................write('Erreur, reencodez : '); readln(heureTravail);
18..............end;
19..............write(' minutes : '); readln(minuteTravail);
20..............while not (minuteTravail in [minuteMin..minuteMax]) do begin
21................write('Erreur, reencodez : '); readln(minuteTravail);
22..............end;
23............end;
24....mercredi : begin
25.................write(' mercredi : heures : '); readln(heureTravail);
26.................while not (heureTravail in [heureMin..heureMax]) do begin
27...................write('Erreur, reencodez : '); readln(heureTravail);
28.................end;
29.................write(' minutes : '); readln(minuteTravail);
30.................while not (minuteTravail in [minuteMin..minuteMax]) do begin
31...................write('Erreur, reencodez : '); readln(minuteTravail);
32.................end;
33...............end;
34....jeudi : begin
35..............write(' jeudi : heures : '); readln(heureTravail);
36..............while not (heureTravail in [heureMin..heureMax]) do begin
37................write('Erreur, reencodez : '); readln(heureTravail);
38..............end;
39..............write(' minutes : '); readln(minuteTravail);
40..............while not (minuteTravail in [minuteMin..minuteMax]) do begin
41................write('Erreur, reencodez : '); readln(minuteTravail);
42..............end;
43............end;
44until compteurJour = jeudi;