Вывести сумму чисел из данного набора, расположенных между последними двумя нулями (консольное приложение)

var i,j,k,n, sum:integer;
     mass:array[0..255] of integer;//или можешь объявить динамический
begin
   k:=0;//Счетчик попавшихся нулей
   for i:=n-1 downto 0 do begin
      if mass[i]=0 then begin
         k:=k+1;
         for j:=i-1 downto 0 do begin
            if mass[j]<>0 then sum:=sum+mass[j]
            else break;
         end;  
      end;
      if k=2 then break;
   end;
   //тут пропишешь вывод результата
end;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    UpDown1: TUpDown;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Button2: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
//Задаем количество и ширину колонок StringGrid в зависимости от числа элементов
 StringGrid1.ColCount := UpDown1.Position;
 for i := 0 to StringGrid1.ColCount - 1 do
  StringGrid1.ColWidths[i] := StringGrid1.Width div UpDown1.Position - 2;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
 i, z1, z2, summ : integer;
 FirstZero : boolean;
begin
 FirstZero := true;
 summ := 0;
 with StringGrid1 do
  begin
//Проверяем правильность введенных данных
   for i := 0 to ColCount - 1 do
    if not TryStrToInt(Cells[i, 0], z1)
     then begin
           ShowMessage(Format('Неверный ввод данных в столбце %d',[i]));
           Exit;
          end;
//Проверяем наличие 2-х нулей и их позиции
   z1 := 0; z2 := 0;
   for i := ColCount - 1 downto 0 do
    begin
     if(StrToInt(Cells[i, 0]) = 0) and (FirstZero)
      then begin
            FirstZero := false;
            z1 := i;
            continue;
           end;
     if(StrToInt(Cells[i, 0]) = 0) and (not FirstZero)
      then begin
            z2 := i;
            break;
           end;
    end;
   if FirstZero
    then begin
          ShowMessage('Нет ни одного ноля. Измените данные');
          Exit;
         end;
   if (z2 = 0) and (StrToInt(Cells[0, 0]) <> 0)
    then begin
          ShowMessage('Всего один ноль. Измените данные');
          Exit;
         end;
   if z1 - z2 = 1
    then begin
          ShowMessage('Два ноля подряд. Измените данные');
          Exit;
         end;
//Если все нормально - считаем сумму
   for i:= z2 to z1 do
    summ := summ + StrToInt(Cells[i, 0]);
  end;
 Label2.Caption := Format('Сумма элементов между двумя последними нолями = %d', [summ]);
end;
 
end.