Сумма чётных чисел в массиве. Опции

[Psychologist]

Доброго времени суток.
Скажите пожалуйста, почему вылетает ошибка "Error 26: Type mismatch" при запуске программы:

Program work2;
Var
   mas1 : array [1..10] of integer;
   i    : integer;
   n    : integer;
   S    : integer;
   rez  : Integer;
Begin
   For i:=1 to 10 do Readln (mas1[i]);
   For i:=1 to 10 do Begin
      if mas1[i] mod 2 = 0 then n:=n+1;
   end;

   For i:=1 to 10 do Begin
      Writeln (mas1[i]);
      if mas1[i] mod 2 = 0 then S:=S+mas1[i];
   end;

   rez:=S/n;
   Writeln (rez);
end.

Выделяется ; в строке "rez:=S/n;"