Delphi 7 Линейные массивы

[JAKS]

Не могу Составить программы для определения указанных параметров линейного массива.

1. Сумма четных элементов массива. Заполнение массива произвести случайными целыми числами из отрезка [-4,5]. Организовать вывод массива в Memo.

2. Все элементы массива, стоящие на нечетных местах, уменьшить на 1. Заполнение массива организуйте из StringGrid.

Подскажите плз

[studen]

const n = 10;
var
  s, i: integer;
begin
  memo1.clear;
  s := 0;
  for i := 1 to n do begin
    x[i] := random(10) - 4;
    memo1.lines.add(inttostr(x[i]);
    if not odd(i) then s := s + x[i];
  end;
end

в переменной s окажется сумма четных элементов массива, если я правильно понял задачу. со второй справишься сам, я надеюсь. они похожи, эти две задачи