Thứ 5 : S:=S+1; là sai. Vì như thế chỉ đếm xem có bao nhiêu phần tử chia hết cho 5 chứ không phải tính tổng.
Thứ 6 là người ta bảo mảng có n phần tử chứ không phải có 100 phần tử. Vì vậy bạn cần phải nhập n trước.

Chú ý là bạn không nên đưa văn bản vào câu lệnh lặp.
Mình sửa lại:
Uses Crt;
Var a: array[1..100] of integer;
n,T,i:integer;
Begin
clrscr;
Write('So phan tu cua mang la: ');Readln(n);
For i:=1 to n do
Begin
Write('Phan tu thu ',i,' la: ');
Readln(a[i]);
End;

T:=0;
For i:=1 to n do
If a[i] mod 5=0 then T:=T+a[i];
Write('Tong cac phan tu chia het cho 5 la: ',T);
Write('Day so chia het cho 5 la: ');
For i:=1 to n do
If a[i] mod 5= 0 then Write (a[i],' ');
Readln
End.