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

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.