Bonjour, petit up

Je viens enfin de trouver quelqu'un qui a le meme probleme que moi :

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
program division;

var
  i : integer;
  cont : string;

begin;
    repeat;
    write ('i :');
    readln (i);
    writeln ('quotient de i/5=',i div 5,'   reste de i/5=',i mod 5,'     pour i=',i);
    writeln ('pour quitter taper : exit sinon taper : tout sauf exit');
    readln (cont);
    until (cont='exit');
end.
A chaque fois il me zappe le readln (cont)
Sauf que lorsque je mets le readln (cont) avant le readln (i) CA MARCHE!!

Donc je comprends pas le problème, alors si vous pouvez m'aidé ce serait sympa.