Последовательно вводится n-целых чисел. найти сумму чётных чисел

Var x,n,i,s:integer;
begin
write('Сколько будет чисел: ');
readln(n);
writeln('Вводите числа по одному:');
for i:=1 to n do
  begin
  readln(x);
  if x mod 2=0 then s:=s+x;
  end;
writeln('S=',s);
end.