Среднее арифметическое элементов массива, стоящих на четных местах. Паскаль

[beginnerSo]

Дан массив a, состоящий из n элементов. Найдите среднее арифметическое значение элементов массива, стоящих на четных местах.
Спасибо заранее за помощь!

[Stilet]

Можешь хотя-бы код ввода массива показать?

[beginnerSo]

Сообщение от Stilet

Можешь хотя-бы код ввода массива показать?

Все, что дано в задаче, я написал

[Stilet]

Ясно.
Ладно. Вот код:

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };

type

  { TMyApplication }

  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
  end;

{ TMyApplication }

procedure TMyApplication.DoRun;
var
  ErrorMsg: String;
  i,n:integer; a:array of double;s:double;
begin
  readln(n); SetLength(a,n);
  for i:=Low(a) to High(a) do begin
    a[i]:=random(100)/6; write(a[i]:5:2);
    if (i mod 2)=0 then s:=s+a[i];
  end; writeln;
  write('sa = ',s/(n div 2):5:2);
  readln;
  { add your program here }


  // stop program loop
  Terminate;
end;

var
  Application: TMyApplication;
begin
  Application:=TMyApplication.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  Application.Free;
end.