динамическое выделение памяти. Turbo pascal

[AHD]

Ребят, помогите решить задачу.

Найти сумму первых k отрицательных элементов массива A={a[i]}, удовлетворяющих условию c<=a[i]<=d. Использовать динамическое выделение памяти.

P.S. Времени на освоение материала совсем нет, а уже скоро экзамен. + сам ещё решаю 3 задачи другой темы. Буду очень благодарен за помощь.

[Stilet]

Даю на водку:

var l,i:^integer;e,k:integer;
begin
 k:=10;
 GetMem(i,k*sizeof(integer));
 l:=i;
 {Ввод массива созданного динамикой}
 for e:=1 to k do begin
   l^:=e*2;
   inc(l,sizeof(integer));
 end;
 l:=i;
 {Ввод ейного массива}
 for e:=1 to k do begin
   writeln(l^);
   inc(l,sizeof(integer));
 end;
 FreeMem(i,sizeof(integer));
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

посмотри внимательно как я выделяю память. Переменную к можно вводить с клавиатуры

[AHD]

Stilet
Спасибо. Позже подумаю над твоим решением.
У меня другой вопрос, но это уже совсем другая тема.