bonjour,
J ai arrêté la programme de turbo pascal a la sortie de l ecole ( il y a
20 ans).
je dois faire un petit programme ( sur freepascal) que voici, mais il y
3 ereures dessus que je ne vois pas.
Je veux enregistrer une table a 2 dimension dans un fichier.
Comment avoir le no de la ligne ou se trouve l erreur avec free pascal ?
program creationdatacotex;
uses crt;
type enr = record
     table : array [1..29,1..30] of string ;
     stock : array [1..30] of byte ;
     end;
Var
     fichier : file of enr;
     a,b : byte;
     e : enr;
BEGIN
Assign(fichier,'datcotex');
e.table[1,1]:='1001001';
e.table[1,2]:='1001002';
e.table[1,3]:=' ';
e.table[1,4]:=' ';
e.table[1,5]:=' ';
e.table[1,6]:=' ';
e.table[1,7]:=' ';
e.table[1,8]:=' ';
e.table[1,9]:=' ';
e.table[1,10]:=' ';
e.table[1,11]:=' ';
e.table[1,12]:=' ';
e.table[1,13]:=' ';
e.table[1,14]:=' ';
e.table[1,15]:=' ';
e.table[1,16]:=' ';
e.table[1,17]:=' ';
e.table[1,18]:=' ';
e.table[1,19]:=' ';
e.table[1,20]:=' ';
e.table[1,21]:=' ';
e.table[1,22]:=' ';
e.table[1,23]:=' ';
e.table[1,24]:=' ';
e.table[1,25]:=' ';
e.table[1,26]:=' ';
e.table[1,27]:=' ';
e.table[1,28]:=' ';
e.table[1,29]:=' ';
e.table[1,30]:=' ';
e.stock[1]:=100;
e.table[2,1]:=' ';
e.table[2,2]:=' ';
e.table[2,3]:=' ';
e.table[2,4]:=' ';
e.table[2,5]:=' ';
e.table[2,6]:=' ';
e.table[2,7]:=' ';
e.table[2,8]:=' ';
e.table[2,9]:=' ';
e.table[2,10]:=' ';
e.table[2,11]:=' ';
e.table[2,12]:=' ';
e.table[2,13]:=' ';
e.table[2,14]:=' ';
e.table[2,15]:=' ';
e.table[2,16]:=' ';
e.table[2,17]:=' ';
e.table[2,18]:=' ';
e.table[2,19]:=' ';
e.table[2,20]:=' ';
e.table[2,21]:=' ';
e.table[2,22]:=' ';
e.table[2,23]:=' ';
e.table[2,24]:=' ';
e.table[2,25]:=' ';
e.table[2,26]:=' ';
e.table[2,27]:=' ';
e.table[2,28]:=' ';
e.table[2,29]:=' ';
e.table[2,30]:=' ';
e.stock[2]:=0;
e.table[3,1]:=' ';
e.table[3,2]:=' ';
e.table[3,3]:=' ';
e.table[3,4]:=' ';
e.table[3,5]:=' ';
e.table[3,6]:=' ';
e.table[3,7]:=' ';
e.table[3,8]:=' ';
e.table[3,9]:=' ';
e.table[3,10]:=' ';
e.table[3,11]:=' ';
e.table[3,12]:=' ';
e.table[3,13]:=' ';
e.table[3,14]:=' ';
e.table[3,15]:=' ';
e.table[3,16]:=' ';
e.table[3,17]:=' ';
e.table[3,18]:=' ';
e.table[3,19]:=' ';
e.table[3,20]:=' ';
e.table[3,21]:=' ';
e.table[3,22]:=' ';
e.table[3,23]:=' ';
e.table[3,24]:=' ';
e.table[3,25]:=' ';
e.table[3,26]:=' ';
e.table[3,27]:=' ';
e.table[3,28]:=' ';
e.table[3,29]:=' ';
e.table[3,30]:=' ';
e.stock[3]:=0;
e.table[4,1]:=' ';
e.table[4,2]:=' ';
e.table[4,3]:=' ';
e.table[4,4]:=' ';
e.table[4,5]:=' ';
e.table[4,6]:=' ';
e.table[4,7]:=' ';
e.table[4,8]:=' ';
e.table[4,9]:=' ';
e.table[4,10]:=' ';
e.table[4,11]:=' ';
e.table[4,12]:=' ';
e.table[4,13]:=' ';
e.table[4,14]:=' ';
e.table[4,15]:=' ';
e.table[4,16]:=' ';
e.table[4,17]:=' ';
e.table[4,18]:=' ';
e.table[4,19]:=' ';
e.table[4,20]:=' ';
e.table[4,21]:=' ';
e.table[4,22]:=' ';
e.table[4,23]:=' ';
e.table[4,24]:=' ';
e.table[4,25]:=' ';
e.table[4,26]:=' ';
e.table[4,27]:=' ';
e.table[4,28]:=' ';
e.table[4,29]:=' ';
e.table[4,30]:=' ';
e.stock[4]:=0;
e.table[5,1]:=' ';
e.table[5,2]:=' ';
e.table[5,3]:=' ';
e.table[5,4]:=' ';
e.table[5,5]:=' ';
e.table[5,6]:=' ';
e.table[5,7]:=' ';
e.table[5,8]:=' ';
e.table[5,9]:=' ';
e.table[5,10]:=' ';
e.table[5,11]:=' ';
e.table[5,12]:=' ';
e.table[5,13]:=' ';
e.table[5,14]:=' ';
e.table[5,15]:=' ';
e.table[5,16]:=' ';
e.table[5,17]:=' ';
e.table[5,18]:=' ';
e.table[5,19]:=' ';
e.table[5,20]:=' ';
e.table[5,21]:=' ';
e.table[5,22]:=' ';
e.table[5,23]:=' ';
e.table[5,24]:=' ';
e.table[5,25]:=' ';
e.table[5,26]:=' ';
e.table[5,27]:=' ';
e.table[5,28]:=' ';
e.table[5,29]:=' ';
e.table[5,30]:=' ';
e.stock[5]:=0;
e.table[6,1]:=' ';
e.table[6,2]:=' ';
e.table[6,3]:=' ';
e.table[6,4]:=' ';
e.table[6,5]:=' ';
e.table[6,6]:=' ';
e.table[6,7]:=' ';
e.table[6,8]:=' ';
e.table[6,9]:=' ';
e.table[6,10]:=' ';
e.table[6,11]:=' ';
e.table[6,12]:=' ';
e.table[6,13]:=' ';
e.table[6,14]:=' ';
e.table[6,15]:=' ';
e.table[6,16]:=' ';
e.table[6,17]:=' ';
e.table[6,18]:=' ';
e.table[6,19]:=' ';
e.table[6,20]:=' ';
e.table[6,21]:=' ';
e.table[6,22]:=' ';
e.table[6,23]:=' ';
e.table[6,24]:=' ';
e.table[6,25]:=' ';
e.table[6,26]:=' ';
e.table[6,27]:=' ';
e.table[6,28]:=' ';
e.table[6,29]:=' ';
e.table[6,30]:=' ';
e.stock[6]:=0;
e.table[7,1]:=' ';
e.table[7,2]:=' ';
e.table[7,3]:=' ';
e.table[7,4]:=' ';
e.table[7,5]:=' ';
e.table[7,6]:=' ';
e.table[7,7]:=' ';
e.table[7,8]:=' ';
e.table[7,9]:=' ';
e.table[7,10]:=' ';
e.table[7,11]:=' ';
e.table[7,12]:=' ';
e.table[7,13]:=' ';
e.table[7,14]:=' ';
e.table[7,15]:=' ';
e.table[7,16]:=' ';
e.table[7,17]:=' ';
e.table[7,18]:=' ';
e.table[7,19]:=' ';
e.table[7,20]:=' ';
e.table[7,21]:=' ';
e.table[7,22]:=' ';
e.table[7,23]:=' ';
e.table[7,24]:=' ';
e.table[7,25]:=' ';
e.table[7,26]:=' ';
e.table[7,27]:=' ';
e.table[7,28]:=' ';
e.table[7,29]:=' ';
e.table[7,30]:=' ';
e.stock[7]:=0;
e.table[8,1]:=' ';
e.table[8,2]:=' ';
e.table[8,3]:=' ';
e.table[8,4]:=' ';
e.table[8,5]:=' ';
e.table[8,6]:=' ';
e.table[8,7]:=' ';
e.table[8,8]:=' ';
e.table[8,9]:=' ';
e.table[8,10]:=' ';
e.table[8,11]:=' ';
e.table[8,12]:=' ';
e.table[8,13]:=' ';
e.table[8,14]:=' ';
e.table[8,15]:=' ';
e.table[8,16]:=' ';
e.table[8,17]:=' ';
e.table[8,18]:=' ';
e.table[8,19]:=' ';
e.table[8,20]:=' ';
e.table[8,21]:=' ';
e.table[8,22]:=' ';
e.table[8,23]:=' ';
e.table[8,24]:=' ';
e.table[8,25]:=' ';
e.table[8,26]:=' ';
e.table[8,27]:=' ';
e.table[8,28]:=' ';
e.table[8,29]:=' ';
e.table[8,30]:=' ';
e.stock[8]:=0;
e.table[9,1]:=' ';
e.table[9,2]:=' ';
e.table[9,3]:=' ';
e.table[9,4]:=' ';
e.table[9,5]:=' ';
e.table[9,6]:=' ';
e.table[9,7]:=' ';
e.table[9,8]:=' ';
e.table[9,9]:=' ';
e.table[9,10]:=' ';
e.table[9,11]:=' ';
e.table[9,12]:=' ';
e.table[9,13]:=' ';
e.table[9,14]:=' ';
e.table[9,15]:=' ';
e.table[9,16]:=' ';
e.table[9,17]:=' ';
e.table[9,18]:=' ';
e.table[9,19]:=' ';
e.table[9,20]:=' ';
e.table[9,21]:=' ';
e.table[9,22]:=' ';
e.table[9,23]:=' ';
e.table[9,24]:=' ';
e.table[9,25]:=' ';
e.table[9,26]:=' ';
e.table[9,27]:=' ';
e.table[9,28]:=' ';
e.table[9,29]:=' ';
e.table[9,30]:=' ';
e.stock[9]:=0;
e.table[10,1]:=' ';
e.table[10,2]:=' ';
e.table[10,3]:=' ';
e.table[10,4]:=' ';
e.table[10,5]:=' ';
e.table[10,6]:=' ';
e.table[10,7]:=' ';
e.table[10,8]:=' ';
e.table[10,9]:=' ';
e.table[10,10]:=' ';
e.table[10,11]:=' ';
e.table[10,12]:=' ';
e.table[10,13]:=' ';
e.table[10,14]:=' ';
e.table[10,15]:=' ';
e.table[10,16]:=' ';
e.table[10,17]:=' ';
e.table[10,18]:=' ';
e.table[10,19]:=' ';
e.table[10,20]:=' ';
e.table[10,21]:=' ';
e.table[10,22]:=' ';
e.table[10,23]:=' ';
e.table[10,24]:=' ';
e.table[10,25]:=' ';
e.table[10,26]:=' ';
e.table[10,27]:=' ';
e.table[10,28]:=' ';
e.table[10,29]:=' ';
e.table[10,30]:=' ';
e.stock[10]:=0;
e.table[11,1]:=' ';
e.table[11,2]:=' ';
e.table[11,3]:=' ';
e.table[11,4]:=' ';
e.table[11,5]:=' ';
e.table[11,6]:=' ';
e.table[11,7]:=' ';
e.table[11,8]:=' ';
e.table[11,9]:=' ';
e.table[11,10]:=' ';
e.table[11,11]:=' ';
e.table[11,12]:=' ';
e.table[11,13]:=' ';
e.table[11,14]:=' ';
e.table[11,15]:=' ';
e.table[11,16]:=' ';
e.table[11,17]:=' ';
e.table[11,18]:=' ';
e.table[11,19]:=' ';
e.table[11,20]:=' ';
e.table[11,21]:=' ';
e.table[11,22]:=' ';
e.table[11,23]:=' ';
e.table[11,24]:=' ';
e.table[11,25]:=' ';
e.table[11,26]:=' ';
e.table[11,27]:=' ';
e.table[11,28]:=' ';
e.table[11,29]:=' ';
e.table[11,30]:=' ';
e.stock[11]:=0;
e.table[12,1]:=' ';
e.table[12,2]:=' ';
e.table[12,3]:=' ';
e.table[12,4]:=' ';
e.table[12,5]:=' ';
e.table[12,6]:=' ';
e.table[12,7]:=' ';
e.table[12,8]:=' ';
e.table[12,9]:=' ';
e.table[12,10]:=' ';
e.table[12,11]:=' ';
e.table[12,12]:=' ';
e.table[12,13]:=' ';
e.table[12,14]:=' ';
e.table[12,15]:=' ';
e.table[12,16]:=' ';
e.table[12,17]:=' ';
e.table[12,18]:=' ';
e.table[12,19]:=' ';
e.table[12,20]:=' ';
e.table[12,21]:=' ';
e.table[12,22]:=' ';
e.table[12,23]:=' ';
e.table[12,24]:=' ';
e.table[12,25]:=' ';
e.table[12,26]:=' ';
e.table[12,27]:=' ';
e.table[12,28]:=' ';
e.table[12,29]:=' ';
e.table[12,30]:=' ';
e.stock[12]:=0;
e.table[13,1]:=' ';
e.table[13,2]:=' ';
e.table[13,3]:=' ';
e.table[13,4]:=' ';
e.table[13,5]:=' ';
e.table[13,6]:=' ';
e.table[13,7]:=' ';
e.table[13,8]:=' ';
e.table[13,9]:=' ';
e.table[13,10]:=' ';
e.table[13,11]:=' ';
e.table[13,12]:=' ';
e.table[13,13]:=' ';
e.table[13,14]:=' ';
e.table[13,15]:=' ';
e.table[13,16]:=' ';
e.table[13,17]:=' ';
e.table[13,18]:=' ';
e.table[13,19]:=' ';
e.table[13,20]:=' ';
e.table[13,21]:=' ';
e.table[13,22]:=' ';
e.table[13,23]:=' ';
e.table[13,24]:=' ';
e.table[13,25]:=' ';
e.table[13,26]:=' ';
e.table[13,27]:=' ';
e.table[13,28]:=' ';
e.table[13,29]:=' ';
e.table[13,30]:=' ';
e.stock[13]:=0;
e.table[14,1]:=' ';
e.table[14,2]:=' ';
e.table[14,3]:=' ';
e.table[14,4]:=' ';
e.table[14,5]:=' ';
e.table[14,6]:=' ';
e.table[14,7]:=' ';
e.table[14,8]:=' ';
e.table[14,9]:=' ';
e.table[14,10]:=' ';
e.table[14,11]:=' ';
e.table[14,12]:=' ';
e.table[14,13]:=' ';
e.table[14,14]:=' ';
e.table[14,15]:=' ';
e.table[14,16]:=' ';
e.table[14,17]:=' ';
e.table[14,18]:=' ';
e.table[14,19]:=' ';
e.table[14,20]:=' ';
e.table[14,21]:=' ';
e.table[14,22]:=' ';
e.table[14,23]:=' ';
e.table[14,24]:=' ';
e.table[14,25]:=' ';
e.table[14,26]:=' ';
e.table[14,27]:=' ';
e.table[14,28]:=' ';
e.table[14,29]:=' ';
e.table[14,30]:=' ';
e.stock[14]:=0;
e.table[15,1]:=' ';
e.table[15,2]:=' ';
e.table[15,3]:=' ';
e.table[15,4]:=' ';
e.table[15,5]:=' ';
e.table[15,6]:=' ';
e.table[15,7]:=' ';
e.table[15,8]:=' ';
e.table[15,9]:=' ';
e.table[15,10]:=' ';
e.table[15,11]:=' ';
e.table[15,12]:=' ';
e.table[15,13]:=' ';
e.table[15,14]:=' ';
e.table[15,15]:=' ';
e.table[15,16]:=' ';
e.table[15,17]:=' ';
e.table[15,18]:=' ';
e.table[15,19]:=' ';
e.table[15,20]:=' ';
e.table[15,21]:=' ';
e.table[15,22]:=' ';
e.table[15,23]:=' ';
e.table[15,24]:=' ';
e.table[15,25]:=' ';
e.table[15,26]:=' ';
e.table[15,27]:=' ';
e.table[15,28]:=' ';
e.table[15,29]:=' ';
e.table[15,30]:=' ';
e.stock[15]:=0;
e.table[16,1]:=' ';
e.table[16,2]:=' ';
e.table[16,3]:=' ';
e.table[16,4]:=' ';
e.table[16,5]:=' ';
e.table[16,6]:=' ';
e.table[16,7]:=' ';
e.table[16,8]:=' ';
e.table[16,9]:=' ';
e.table[16,10]:=' ';
e.table[16,11]:=' ';
e.table[16,12]:=' ';
e.table[16,13]:=' ';
e.table[16,14]:=' ';
e.table[16,15]:=' ';
e.table[16,16]:=' ';
e.table[16,17]:=' ';
e.table[16,18]:=' ';
e.table[16,19]:=' ';
e.table[16,20]:=' ';
e.table[16,21]:=' ';
e.table[16,22]:=' ';
e.table[16,23]:=' ';
e.table[16,24]:=' ';
e.table[16,25]:=' ';
e.table[16,26]:=' ';
e.table[16,27]:=' ';
e.table[16,28]:=' ';
e.table[16,29]:=' ';
e.table[16,30]:=' ';
e.stock[16]:=0;
e.table[17,1]:=' ';
e.table[17,2]:=' ';
e.table[17,3]:=' ';
e.table[17,4]:=' ';
e.table[17,5]:=' ';
e.table[17,6]:=' ';
e.table[17,7]:=' ';
e.table[17,8]:=' ';
e.table[17,9]:=' ';
e.table[17,10]:=' ';
e.table[17,11]:=' ';
e.table[17,12]:=' ';
e.table[17,13]:=' ';
e.table[17,14]:=' ';
e.table[17,15]:=' ';
e.table[17,16]:=' ';
e.table[17,17]:=' ';
e.table[17,18]:=' ';
e.table[17,19]:=' ';
e.table[17,20]:=' ';
e.table[17,21]:=' ';
e.table[17,22]:=' ';
e.table[17,23]:=' ';
e.table[17,24]:=' ';
e.table[17,25]:=' ';
e.table[17,26]:=' ';
e.table[17,27]:=' ';
e.table[17,28]:=' ';
e.table[17,29]:=' ';
e.table[17,30]:=' ';
e.stock[17]:=0;
e.table[18,1]:=' ';
e.table[18,2]:=' ';
e.table[18,3]:=' ';
e.table[18,4]:=' ';
e.table[18,5]:=' ';
e.table[18,6]:=' ';
e.table[18,7]:=' ';
e.table[18,8]:=' ';
e.table[18,9]:=' ';
e.table[18,10]:=' ';
e.table[18,11]:=' ';
e.table[18,12]:=' ';
e.table[18,13]:=' ';
e.table[18,14]:=' ';
e.table[18,15]:=' ';
e.table[18,16]:=' ';
e.table[18,17]:=' ';
e.table[18,18]:=' ';
e.table[18,19]:=' ';
e.table[18,20]:=' ';
e.table[18,21]:=' ';
e.table[18,22]:=' ';
e.table[18,23]:=' ';
e.table[18,24]:=' ';
e.table[18,25]:=' ';
e.table[18,26]:=' ';
e.table[18,27]:=' ';
e.table[18,28]:=' ';
e.table[18,29]:=' ';
e.table[18,30]:=' ';
e.stock[18]:=0;
e.table[19,1]:=' ';
e.table[19,2]:=' ';
e.table[19,3]:=' ';
e.table[19,4]:=' ';
e.table[19,5]:=' ';
e.table[19,6]:=' ';
e.table[19,7]:=' ';
e.table[19,8]:=' ';
e.table[19,9]:=' ';
e.table[19,10]:=' ';
e.table[19,11]:=' ';
e.table[19,12]:=' ';
e.table[19,13]:=' ';
e.table[19,14]:=' ';
e.table[19,15]:=' ';
e.table[19,16]:=' ';
e.table[19,17]:=' ';
e.table[19,18]:=' ';
e.table[19,19]:=' ';
e.table[19,20]:=' ';
e.table[19,21]:=' ';
e.table[19,22]:=' ';
e.table[19,23]:=' ';
e.table[19,24]:=' ';
e.table[19,25]:=' ';
e.table[19,26]:=' ';
e.table[19,27]:=' ';
e.table[19,28]:=' ';
e.table[19,29]:=' ';
e.table[19,30]:=' ';
e.stock[19]:=0;
e.table[20,1]:=' ';
e.table[20,2]:=' ';
e.table[20,3]:=' ';
e.table[20,4]:=' ';
e.table[20,5]:=' ';
e.table[20,6]:=' ';
e.table[20,7]:=' ';
e.table[20,8]:=' ';
e.table[20,9]:=' ';
e.table[20,10]:=' ';
e.table[20,11]:=' ';
e.table[20,12]:=' ';
e.table[20,13]:=' ';
e.table[20,14]:=' ';
e.table[20,15]:=' ';
e.table[20,16]:=' ';
e.table[20,17]:=' ';
e.table[20,18]:=' ';
e.table[20,19]:=' ';
e.table[20,20]:=' ';
e.table[20,21]:=' ';
e.table[20,22]:=' ';
e.table[20,23]:=' ';
e.table[20,24]:=' ';
e.table[20,25]:=' ';
e.table[20,26]:=' ';
e.table[20,27]:=' ';
e.table[20,28]:=' ';
e.table[20,29]:=' ';
e.table[20,30]:=' ';
e.stock[20]:=0;
e.table[21,1]:=' ';
e.table[21,2]:=' ';
e.table[21,3]:=' ';
e.table[21,4]:=' ';
e.table[21,5]:=' ';
e.table[21,6]:=' ';
e.table[21,7]:=' ';
e.table[21,8]:=' ';
e.table[21,9]:=' ';
e.table[21,10]:=' ';
e.table[21,11]:=' ';
e.table[21,12]:=' ';
e.table[21,13]:=' ';
e.table[21,14]:=' ';
e.table[21,15]:=' ';
e.table[21,16]:=' ';
e.table[21,17]:=' ';
e.table[21,18]:=' ';
e.table[21,19]:=' ';
e.table[21,20]:=' ';
e.table[21,21]:=' ';
e.table[21,22]:=' ';
e.table[21,23]:=' ';
e.table[21,24]:=' ';
e.table[21,25]:=' ';
e.table[21,26]:=' ';
e.table[21,27]:=' ';
e.table[21,28]:=' ';
e.table[21,29]:=' ';
e.table[21,30]:=' ';
e.stock[21]:=0;
e.table[22,1]:=' ';
e.table[22,2]:=' ';
e.table[22,3]:=' ';
e.table[22,4]:=' ';
e.table[22,5]:=' ';
e.table[22,6]:=' ';
e.table[22,7]:=' ';
e.table[22,8]:=' ';
e.table[22,9]:=' ';
e.table[22,10]:=' ';
e.table[22,11]:=' ';
e.table[22,12]:=' ';
e.table[22,13]:=' ';
e.table[22,14]:=' ';
e.table[22,15]:=' ';
e.table[22,16]:=' ';
e.table[22,17]:=' ';
e.table[22,18]:=' ';
e.table[22,19]:=' ';
e.table[22,20]:=' ';
e.table[22,21]:=' ';
e.table[22,22]:=' ';
e.table[22,23]:=' ';
e.table[22,24]:=' ';
e.table[22,25]:=' ';
e.table[22,26]:=' ';
e.table[22,27]:=' ';
e.table[22,28]:=' ';
e.table[22,29]:=' ';
e.table[22,30]:=' ';
e.stock[22]:=0;
e.table[23,1]:=' ';
e.table[23,2]:=' ';
e.table[23,3]:=' ';
e.table[23,4]:=' ';
e.table[23,5]:=' ';
e.table[23,6]:=' ';
e.table[23,7]:=' ';
e.table[23,8]:=' ';
e.table[23,9]:=' ';
e.table[23,10]:=' ';
e.table[23,11]:=' ';
e.table[23,12]:=' ';
e.table[23,13]:=' ';
e.table[23,14]:=' ';
e.table[23,15]:=' ';
e.table[23,16]:=' ';
e.table[23,17]:=' ';
e.table[23,18]:=' ';
e.table[23,19]:=' ';
e.table[23,20]:=' ';
e.table[23,21]:=' ';
e.table[23,22]:=' ';
e.table[23,23]:=' ';
e.table[23,24]:=' ';
e.table[23,25]:=' ';
e.table[23,26]:=' ';
e.table[23,27]:=' ';
e.table[23,28]:=' ';
e.table[23,29]:=' ';
e.table[23,30]:=' ';
e.stock[23]:=0;
e.table[24,1]:=' ';
e.table[24,2]:=' ';
e.table[24,3]:=' ';
e.table[24,4]:=' ';
e.table[24,5]:=' ';
e.table[24,6]:=' ';
e.table[24,7]:=' ';
e.table[24,8]:=' ';
e.table[24,9]:=' ';
e.table[24,10]:=' ';
e.table[24,11]:=' ';
e.table[24,12]:=' ';
e.table[24,13]:=' ';
e.table[24,14]:=' ';
e.table[24,15]:=' ';
e.table[24,16]:=' ';
e.table[24,17]:=' ';
e.table[24,18]:=' ';
e.table[24,19]:=' ';
e.table[24,20]:=' ';
e.table[24,21]:=' ';
e.table[24,22]:=' ';
e.table[24,23]:=' ';
e.table[24,24]:=' ';
e.table[24,25]:=' ';
e.table[24,26]:=' ';
e.table[24,27]:=' ';
e.table[24,28]:=' ';
e.table[24,29]:=' ';
e.table[24,30]:=' ';
e.stock[24]:=0;
e.table[25,1]:=' ';
e.table[25,2]:=' ';
e.table[25,3]:=' ';
e.table[25,4]:=' ';
e.table[25,5]:=' ';
e.table[25,6]:=' ';
e.table[25,7]:=' ';
e.table[25,8]:=' ';
e.table[25,9]:=' ';
e.table[25,10]:=' ';
e.table[25,11]:=' ';
e.table[25,12]:=' ';
e.table[25,13]:=' ';
e.table[25,14]:=' ';
e.table[25,15]:=' ';
e.table[25,16]:=' ';
e.table[25,17]:=' ';
e.table[25,18]:=' ';
e.table[25,19]:=' ';
e.table[25,20]:=' ';
e.table[25,21]:=' ';
e.table[25,22]:=' ';
e.table[25,23]:=' ';
e.table[25,24]:=' ';
e.table[25,25]:=' ';
e.table[25,26]:=' ';
e.table[25,27]:=' ';
e.table[25,28]:=' ';
e.table[25,29]:=' ';
e.table[25,30]:=' ';
e.stock[25]:=0;
e.table[26,1]:=' ';
e.table[26,2]:=' ';
e.table[26,3]:=' ';
e.table[26,4]:=' ';
e.table[26,5]:=' ';
e.table[26,6]:=' ';
e.table[26,7]:=' ';
e.table[26,8]:=' ';
e.table[26,9]:=' ';
e.table[26,10]:=' ';
e.table[26,11]:=' ';
e.table[26,12]:=' ';
e.table[26,13]:=' ';
e.table[26,14]:=' ';
e.table[26,15]:=' ';
e.table[26,16]:=' ';
e.table[26,17]:=' ';
e.table[26,18]:=' ';
e.table[26,19]:=' ';
e.table[26,20]:=' ';
e.table[26,21]:=' ';
e.table[26,22]:=' ';
e.table[26,23]:=' ';
e.table[26,24]:=' ';
e.table[26,25]:=' ';
e.table[26,26]:=' ';
e.table[26,27]:=' ';
e.table[26,28]:=' ';
e.table[26,29]:=' ';
e.table[26,30]:=' ';
e.stock[26]:=0;
e.table[27,1]:=' ';
e.table[27,2]:=' ';
e.table[27,3]:=' ';
e.table[27,4]:=' ';
e.table[27,5]:=' ';
e.table[27,6]:=' ';
e.table[27,7]:=' ';
e.table[27,8]:=' ';
e.table[27,9]:=' ';
e.table[27,10]:=' ';
e.table[27,11]:=' ';
e.table[27,12]:=' ';
e.table[27,13]:=' ';
e.table[27,14]:=' ';
e.table[27,15]:=' ';
e.table[27,16]:=' ';
e.table[27,17]:=' ';
e.table[27,18]:=' ';
e.table[27,19]:=' ';
e.table[27,20]:=' ';
e.table[27,21]:=' ';
e.table[27,22]:=' ';
e.table[27,23]:=' ';
e.table[27,24]:=' ';
e.table[27,25]:=' ';
e.table[27,26]:=' ';
e.table[27,27]:=' ';
e.table[27,28]:=' ';
e.table[27,29]:=' ';
e.table[27,30]:=' ';
e.stock[27]:=0;
e.table[28,1]:=' ';
e.table[28,2]:=' ';
e.table[28,3]:=' ';
e.table[28,4]:=' ';
e.table[28,5]:=' ';
e.table[28,6]:=' ';
e.table[28,7]:=' ';
e.table[28,8]:=' ';
e.table[28,9]:=' ';
e.table[28,10]:=' ';
e.table[28,11]:=' ';
e.table[28,12]:=' ';
e.table[28,13]:=' ';
e.table[28,14]:=' ';
e.table[28,15]:=' ';
e.table[28,16]:=' ';
e.table[28,17]:=' ';
e.table[28,18]:=' ';
e.table[28,19]:=' ';
e.table[28,20]:=' ';
e.table[28,21]:=' ';
e.table[28,22]:=' ';
e.table[28,23]:=' ';
e.table[28,24]:=' ';
e.table[28,25]:=' ';
e.table[28,26]:=' ';
e.table[28,27]:=' ';
e.table[28,28]:=' ';
e.table[28,29]:=' ';
e.table[28,30]:=' ';
e.stock[28]:=0;
e.table[29,1]:=' ';
e.table[29,2]:=' ';
e.table[29,3]:=' ';
e.table[29,4]:=' ';
e.table[29,5]:=' ';
e.table[29,6]:=' ';
e.table[29,7]:=' ';
e.table[29,8]:=' ';
e.table[29,9]:=' ';
e.table[29,10]:=' ';
e.table[29,11]:=' ';
e.table[29,12]:=' ';
e.table[29,13]:=' ';
e.table[29,14]:=' ';
e.table[29,15]:=' ';
e.table[29,16]:=' ';
e.table[29,17]:=' ';
e.table[29,18]:=' ';
e.table[29,19]:=' ';
e.table[29,20]:=' ';
e.table[29,21]:=' ';
e.table[29,22]:=' ';
e.table[29,23]:=' ';
e.table[29,24]:=' ';
e.table[29,25]:=' ';
e.table[29,26]:=' ';
e.table[29,27]:=' ';
e.table[29,28]:=' ';
e.table[29,29]:=' ';
e.table[29,30]:=' ';
e.stock[29]:=0;
rewrite(fichier);
for a:=1 to 30 do
begin
         for b:=1 to 29 do
         begin
         write (fichier,e.table[a,b]);
         end;
         writeln(fichier,e.stock[a]);
end;
close(fichier);
END.
Merci d avance
Denis