Вычисление суммы тех элементов одномерного массива, что расположены перед первым нулевым элементом

procedure fillArray(var arr: array of integer);
var
   i : integer;
begin
   for i := 0 to length(arr) - 1 do
   begin      
      write('Введите элемент массива №', i + 1, ': ');
      readln(arr[i]);        
   end;
end;
 
//***************************************************************************************
 
function getLengthArray() : integer;
begin
   result := -1;
   while (result <= 0) do
   begin
      write('Введите размер массива: ');
      readln(result);
      if (result <= 0) then writeln('Размер массива должен быть больше 0!!!');
   end;
   getLengthArray := result;
end;
 
//***************************************************************************************
 
function arrayToString(arr : array of integer) : String;
var
   i : integer;
begin
   result := '[';
   if length(arr) > 0 then
   begin
     for i := 0 to length(arr) - 1 do
     begin
        result := result + arr[i];
        if i < length(arr) - 1 then result := result + ', ';
     end;
   end; 
   result := result + ']';
   arrayToString := result;
end;
 
//***************************************************************************************
 
function sumValuesArray(arr : array of integer; startValue : integer; endValue : integer) : integer;
var
   startSum : boolean;
   i        : integer;
   
begin
   startSum := false;
   result := 0;
   if length(arr) > 0 then
   begin
      for i := 0 to length(arr) - 1 do
      begin
         if (not startSum) and (arr[i] = startValue) then startSum := true
         else if arr[i] = endValue then break;
         if startSum then result := result + arr[i];
      end;
   end;
   sumValuesArray := result;
end;
 
//***************************************************************************************
 
var
  arr         : array of integer;
  lengthArray : integer;
   
begin
   lengthArray := getLengthArray();
   setLength(arr, lengthArray);
   fillArray(arr);
   writeln('Массив выглядит: ', arrayToString(arr));
   writeln('Ответ: сумма элементов от первого 0 до последующего равна ', sumValuesArray(arr, 0, 0));   
end.

var
   n, i  : integer;
   res   : double;
   equal : double;
   
begin
   write('Введите N: ');
   readln(n);
   
   res := 0;
   if n >= 1 then
   begin
      for i := 1 to n do
      begin
         res := res + i * i;
      end;
   end else write('Число n должно быть больше 0!!!'); 
   equal :=  n * (n + 1) * (2 * n + 1) / 6;
   
   if equal = res then write('Формула действительная. ', res, ' = ', equal) 
   else write('Формула не действительная. ', res, ' = ', equal);  
end.