работа с turbo pascal

[wqrsz]

Дан массив чисел S=(s1,s2,...,sk). Вычислить сумму индексов положительных элементов массива.

[ZX Spectrum-128]

const
  m = 100;
 
var
  a: array[1..m] of integer;
  i, n, sumi: integer;
 
begin
  randomize;
  write('Введите размерность массива: ');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := -m div 2 + random(m);
    write(a[i]:5);
  end;
  writeln;
  sumi := 0;
  for i := 1 to n do
    if a[i] > 0 then
      sumi := sumi + i;
  writeln('Сумма индексов положительных элементов массива: ', sumi);
end.