Bonjour

Je ne trouve pas l'erreur de mon programme. Quand je compile c'est ok mais quand je le teste, ça ne fonctionne pas.
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
program rom;
uses crt;
var
  nombre : integer;
 
procedure romain(var n :integer;limite :integer;txt:string);
 
         Begin
 
              while n >=limite do
 
              write ('txt');
              n:=n-limite;
         end;
 
Begin
   clrscr;
   repeat
         gotoxy(1,1);
         write ('Entrez un nombre (de 1 à 10000) : ');
         clreol;
         readln(nombre);
   until (nombre>0)and(nombre<=10000);
 
   gotoxy(1,3);
   write('Le nombre ',nombre,' correspond en romain : ');
 
   romain (nombre,1000,'M');
   romain (nombre,999,'IM');
   romain (nombre,900,'CM');
   romain (nombre,500, 'D');
   romain (nombre,400,'CD');
   romain (nombre,100, 'C');
   romain (nombre,99, 'IC');
   romain (nombre,90, 'XC');
   romain (nombre,50,  'L');
   romain (nombre,49, 'IL');
   romain (nombre,40, 'XL');
   romain (nombre,10,  'X');
   romain (nombre,9,  'IX');
   romain (nombre,5,   'V');
   romain (nombre,4,  'IV');
   romain (nombre,1,   'I');
 
 readln;
 
end.
Pouvez-vous m'aider ?
Merci