Делфи. Помогите в работе с массивом.

[SfSpawN]

Работа с массивом. Задать длину массива целых числ. Заполнить массив, заполнить четные элементы массива числами 1, а нечетные последующие элементы массива умножаем на 5.Язык дельфи.

[Пепел Феникса]

не четные последние элементы массива умноженым на 5.

это обьясни

[Рамик]

ну чето не понятно...

[SfSpawN]

исправил не прально написал сначало...

[Пепел Феникса]

я понял задание так...
(вывода на экран там нет, массив генерируется случайно)

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var A:array of integer;
    i:integer;

begin
 writeln('Введите длину массива');
 readln(i);
 Setlength(A,i);
 for i:=0 to length(A)-1 do A[i]:=Random(100);
 for i:=0 to length(A)-1 do if i mod 2=0 then A[i]:=1 else A[i]:=A[i]*5
end.