Не получается сделать программу в ABCпаскаль, в чем ошибка?

uses crt;

var

a: array [1 ... 20] of index;

begin

for i: = 1 to 15 do;

readln (a[i]) ;

for i: = 1 to 15 do;

writeln (a[i]) ;

for i: = 1 to 15 do;

if a[i] mod 2 = 0 then S:=S+1;

S: = S+a[i];

writeln (S) ;

end.

В var нет переменных i и S. В остальном задача принимает 15 чисел и проверяет, сколько чётных среди них.

P. S. Надо переделать! Зачем складывать член массива с количеством? И ещё - сперва опиши, что такое S - программа же не знает, с чем складывать S!

Uses crt;

var

a: array [1 ... 20] of integer;

k, s, i:integer;

begin

writeln;

for i: = 1 to 15 do readln (a[i]) ;

for i: = 1 to 15 do write (a[i],' ') ;

writeln;

for i: = 1 to 15 do

if a[i] mod 2 = 0 then

begin

S:=S+a[i];

k:=k+1;

end;

writeln ('S = ', s,' k = ', k) ;

end.

Пример:

14

54

87

20

75

12

67

84

35

11

51

34

80

56

87

14 54 87 20 75 12 67 84 35 11 51 34 80 56 87

S = 354 k = 8