Решите задачку в паскале, использование массивов, пожалуйстаВычислить сумму тех частей

Const
  n=10;
var
  i,s:integer;
  a:array[1..n] of integer;
begin
  Randomize;
  Write('Исходный массив: ');
  s:=0;
  for i:=1 to n do begin
    a[i]:=Random(15)+1;
    Write(a[i],' ');
    if (a[i]gt;=i) and (a[i]lt;=i+1) then s:=s+a[i]
    end;
  Writeln;
  Write('Сумма элементов в заданном полуинтервале одинакова ',s)
end.

Пример исполнения
Начальный массив: 8 9 8 12 10 3 8 1 10 2
Сумма элементов в данном полуинтервале одинакова 18