voici mon code, cela continue de me dire qu'il y a une erreur ligne 9 mais je ne la trouve pas quelqu'un peut m'aider s'il vous plait ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Program montre_digital ;
Uses crt ;
Var 
    heure,minute,seconde : integer ;
Begin
    clrscr ;
    If seconde = 60 Then
        seconde = 0
        If seconde = 0 Then
            minute :  = minutes+1 ;
    If minute=60 Then
        minute = 0 ;
    If (seconde=59) And (minute=59) Then
        heure :  = heure+1 ;
 
    writeln() ;
    writeln('                                     montre digital') ;
    writeln() ;
    writeln() ;
    writeln() ;
    writeln() ;
    writeln('                                            ,heure, : ,minute, : ,seconde : ') ;
    delay(1000) ;
Until heure > 25 ;
readln;
End.