удаление элементов Опции

[лоен]

почему вот этот кусочек не работает

const Nmax=10000;
var   n,i,s,b,j: integer;
a:array [1..Nmax] of integer;
begin
    Writeln('Vvedite dliny posledovatelnosti(n<=10000)');
     Readln(n);
     Writeln('Vvedite posledovatelnost');
     For i:=1 to n Do Begin
        s:=0;
        Readln(A[i]);
        While a[i]>=1 Do Begin
          b:=a[i] mod 10;
          S:=s+b;
          a[i]:=a[i] div 10;
        end;
        If s mod 8=0 then
        for j:= i to n-1 do a[j]:=a[j+1];
      end;
      For i:=1 to n Do Write(A[i],' ');
  Readln;
end.

Добавлено через 1 мин.
нужно удалить числа сумма цифр которых делится на 8