Создания динамического массива

Народ у меня есть задача на подсчет суммы всех элементов одномерного динамического массива . Я знаю как делать эту задачу . Но проблема в том , что я не знаю как правильно создавать динамический и массив и потом его отобразить в Memo . Вот куски кода :

Объявление массива :

DelphiВыделить код

1
2
3

var
i,n:integer;
s:array of integer;

Ввод массива . Я не пойму что здесь писать .

сам цикл :

DelphiВыделить код

1
2
3
4
5
6

i:=0;
sum:=0;
while i<n do 
begin
sum:=sum+s[i];
i:=i+1;

И потом вывод суммы массива . Я тоже не знаю как это написать .

Я понимаю , это вещи элементарные , но помогите разобраться , если не лень .