Correction d'exercice

bonjours mr s'il vous plait j'ai besoins d'un coup de main pour mon exercice , je viens de le traite et j'aimerais avoir un mentor pour le corrige et m'expliquer mes eventuelles failles .

Écrire un programme qui permet de remplir un tableau TAB de 20 éléments entiers quelconques non nul, Le programme devra ensuite parcourir le tableau pour rechercher le plus grand élément.
TAF : Veuillez remplir toutes les trous avec les valeurs qui conviennent. NB : Toutes les réponses ne doivent pas avoir des espaces et elles doivent être en minuscule .
Solution :

 program  tableau ;     
  uses crt;
 type          
  T_tab   = array [ 1..20 ]    of integer ;         
 var  
tnbre : T_tab;          
i, j , grd : integer ;         
 begin 
repeat          
 writeln ( ‘ Entrez votre nombre :  ‘)        
  readln ( tnbre [i] ) ;     
  until    tnbre [i] > 0      
 grd :=  tnbre  [1]        
for i:=2  to 20 do                          
begin
if ( grd > tnbre [i] ) them
begin
 grd :=  tnbre [i]
end ; 
end ;
writeln('Le plus grand élément est :',  grd);          
readkey;
end .