diff --git a/README.md b/README.md
index b035ebe..8491ffb 100644
--- a/README.md
+++ b/README.md
@@ -3,7 +3,7 @@ __***This is the exercise we have to do for our Ada 2nd semester exam:***__
 
  - Both Tds are separated by a comment with their names
  - I did all of the question of exercise 2 in order
- - I did the paper question of exercise 3 then the rest of the question (except the optionnal one on strings)
+ - I did the paper question of exercise 3 then the rest of the question (except the optional one on strings)
  - the elvish sentence means "One Ring to rule them all, One Ring to find them, One Ring to bring them all, and in the darkness bind them" I thought it was totally appropriate
  - the INSA logo is from the 1st semester Test :)
  - the pointless  - are these really pointless or so are our lives? -  comments have a //
diff --git a/TD_R_LACROIX_ENG_06-01-2020.adb b/TD_R_LACROIX_ENG_06-01-2020.adb
index 0f71487..927af26 100644
--- a/TD_R_LACROIX_ENG_06-01-2020.adb
+++ b/TD_R_LACROIX_ENG_06-01-2020.adb
@@ -4,14 +4,14 @@ with Fiche_Plongee, Capteurs, Gada.Text_IO;
 use Fiche_Plongee, Capteurs, Gada.Text_IO;
 
 procedure td is
-   
+
    -- TD 2
-   
-   function Effectif_Palanquee(Table: T_Palanq) return integer is
-      I : integer := 1; -- to go through the table
+
+   function Effectif_Palanquee(Table: T_Palanq) return Integer is
+      I : Integer := 1; -- to go through the table
       Counter : Integer := 0; -- the final value
    begin
-      
+   
       for I in 1 .. Max_Plongeurs loop
 	if Table.Plongeurs(I).Present then
 	  Counter := Counter+1;   
@@ -20,12 +20,11 @@ procedure td is
 
       return Counter;
    end Effectif_Palanquee;
-   
 
 -- //Wake up Neo 
 
- 
-   function Effectif_Fiche(Table: T_Fiche_Secu) return integer is
+
+   function Effectif_Fiche(Table: T_Fiche_Secu) return Integer is
       I : Integer := 0; -- to go through the table
       J : Integer := 0; -- to go through the table
       Counter : Integer := 0; -- the final value