[999]

Разделить все элементы массива с нечетными номерами на последний элемент (последний элемент отличен от 0).
Как записать условие?в чем тут ошибка?
var
Form1: TForm1;
N:integer;
M:array of integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Randomize;
N:=Strtoint(Edit1.Text);
setlength(M,N);
Edit2.Text:=' ';
Edit3.Text:=' ';
for I := 0 to N-2 do
begin
M[i]:=Round(Sin(Random(10))*10);
end;
for i := n-1 to n-1 do
if M[i]=0 then
begin
m[i]:=Round(Sin(Random(10))*10);
end;
for i := 0 to n - 1 do
Edit2.Text:=Edit2.Text+' '+inttostr(M[i]);
end;
for i := 0 to n- 1 do
if i mod 2 <>0 then
begin
M[i]:= M[i]/M[n-1];
end;
Edit3.Text:=Edit3.Text+' '+inttostr(M[i]);
end;
end.