Дано n чисел.написать программу,которая подсчитывает их сумму.(pascalabc)

Wde не работает, так что не проверял..

var n,x,s,i:integer;
begin
   readln(n); // считываем n
   for i:= 1 to n do begin
      readln(x); // читаем одно из n чисел
      s:=s+x; // добавляем к сумме
   end;
   writeln(s);
end.