Помогите решить задачу Найти сумму элементов одномерного массива. Размер произвольный. Элементы вводятся с клавиатуры.

Var
  ar:array[1..2000] of integer;
  i,s,sum:integer;
begin
  readln(s);
  sum:=0;
  for i:=1 to s do begin
    read(ar[i]);
    sim:=sum+ar[i];
  end;
  writeln(sum);
end.