Bonjour,

J'essaie dans une boucle de saisir 3 chaînes. Après la saisie du premier mot, le programme s'arrête, et les saisies suivantes son impossibles.

Voici mon code :

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
program Exo_26a;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
  var
  i : integer;
   motPropose : array[1..3] of string;
 
begin
  { TODO -oUser -cConsole Main : placez le code ici }
  for i:=1 to 3 do
  begin
  write('Entrez un mot - Essai '+inttostr(i)+ ' : ');
  read(motPropose[i]);
  write(chr(10));
  end;
end.
Merci de votre aide !