Pascal

Bonjour, je codais un programme dans lequel il y a une comparaison dans un vecteur et mon programme marche bien sauf cette comparaison. Alors j'ai refais un programme test avec juste une comparaison dans un vecteur et je ne comprend pas pour moi il devrait fonctionner. Regarder et dites moi ce qui cloche.

program teste;
type vect = array[1..10] of integer;
var a,b : vect;
    c : boolean;
    i,j,l : integer;

begin
     writeln('Entrez les elements');
     for i := 1 to 10 do
          begin
          write('Element ',i,' : ');
          readln(a[i]);
          end;
     j := 0 ;
     c := a[j] > a[j+1];
     for j := 1 to 10 do
         begin

         if a[j] > a[j+1] then b[j] := a[j];
         if a[j] < a[j+1] then b[j] := a[j+1];
         end;
     for l := 1 to 10 do
         begin
         writeln(b[l]);
         end;
     readln;
end.