Вычислить сумму элементов массива, порядковые номера которых совпадают со значением элемента

Program Test;
const 
  size = 9;
var
  arr : array[0..size] of integer;
  i, k : integer;
 
  function negativeK (a : array of integer; k, s : integer) : integer;
  begin
    for i := 0 to s do 
    begin
      if (a[i] < k) then negativeK := negativeK + 1;
    end;
  end;
 
  function summElementIf (a : array of integer; s : integer) : integer;
  var
    i : integer;
  begin
    for i := 0 to s do 
    begin
      if (a[i] = i) then summElementIf := summElementIf + a[i];
    end; 
  end;
 
  function procentN (a : array of integer; s : integer) : real;
  var
    i, k : integer;
  begin
    k := 0;
 
    for i := 0 to s do 
    begin
      if (a[i] mod 2 <> 0) then k := k + 1;
    end;
    
    procentN := (k * 100) / (s + 1); 
  end; 
 
  function number (a : array of integer; s, k : integer) : integer;
  var
    i : integer;
  begin
    for i := 0 to s do 
    begin
      if (a[i] = k) then number := number + 1;
    end;
  end;
 
begin
  writeln ('Введите массив с клавиатуры:');
  for i := 0 to size do 
  begin
    write ('[', i, '] = ' ); 
    readln (arr[i]);
  end;
 
  write ('Введите k: ');
  readln (k);
  writeln ('Чисел меньше k: ', negativeK (arr, k, size));
  
  writeln ('Сумма элементов массива, парядковые номера которых совпадают со значением: ', summElementIf (arr, size)); 
  
  writeln ('Сколько процентов составляют нечетные числа: ', procentN (arr, size):2:1, ' %');
 
  write ('Введите число: ');
  readln (k);
  writeln ('Сколько раз введенное с клавиатуры число встречается в массиве: ', number (arr, size, k));
end.