Одномерные массивы. Все работает, вроде правильно. Как лучше организовать код!?

      max_elem:=0;
      for i:=0 to High(ch) do max_elem := max(max_elem, ch[i]);
      label5.Caption:=' Максимальный эелемент массива: '+inttostr(max_elem);

//ïîèñê ìèíèìàëüíîãî ýëåìåíòà ìàññèâà
      min_elem:=0;
        for i:=0 to HIGH(ch) do
          min_elem:=MIN(min_elem, ch[i]);
            label3.Caption:=' Ìèíèìàëüíûé ýëåìåíò ìàññèâà: '+inttostr(min_elem)+' Íîìåð ýëåìåíòà: '+inttostr(ch[min_elem]);
      //ïîèñê ìàêñèìàëüíîãî ýëåìåíòà ìàññèâà
      max_elem:=50;
        for i:=0 to HIGH(ch)do
          max_elem:=MAX(max_elem, ch[i]);
            label5.Caption:=' Ìàêñèìàëüíûé ýëåìåíò ìàññèâà: '+inttostr(max_elem)+' Íîìåð ýëåìåíòà: '+inttostr(ch[max_elem]);
      //ïîèñê ýëåìåíòîâ äåëÿùèõñÿ íà 3 è èõ ñóììà

//поиск минимального элемента массива
      min_elem:=0;  // <<- здесь должно быть значение которое заведомо больше любого другого значения
                          // ты же выбираешь из 2-х наименьший
        for i:=0 to HIGH(ch) do
          min_elem:=MIN(min_elem, ch[i]);
 
      label3.Caption:=' Минимальный элемент массива: '+inttostr(min_elem)+' Номер элемента: '+inttostr(ch[min_elem]);
 
      //поиск максимального элемента массива
      max_elem:=50;  // <<- а здесь должно быть 0
        for i:=0 to HIGH(ch)do
          max_elem:=MAX(max_elem, ch[i]);
 
      label5.Caption:=' Максимальный элемент массива: '+inttostr(max_elem)+' Номер элемента: '+inttostr(ch[max_elem]);
//поиск элементов делящихся на 3 и их сумма

min_elem:=ch[0] 
max_elem:=ch[0]

st:='';  min:=1;  max:=1; summa:=0; elem:=0;
      //массив с использованием генаратора случайных чисел
      for i:=1 to 50 do
         begin
           ch[i]:=random(100);
           st:=st+inttostr(i)+' '+inttostr(ch[i])+#13;
           if ch[i]<ch[min] then min:=i;
           if ch[i]>ch[max] then max:=i;
           if ch[i] MOD 3=0 then
            begin
               summa:=summa+ch[i];
               elem:=elem+1;
            end;
         end;  
   
      label1.Caption:=st;
  
      label3.Caption:=' Минимальный элемент массива: '+inttostr(ch[min])+' Номер элемента: '+inttostr(min);
     
      label5.Caption:=' Максимальный эелемнт массива: '+inttostr(ch[max])+' Номер элемента: '+inttostr(max);
           
      label2.Caption:='Количество элементов делящихся на 3= '+inttostr(elem)+' '+'сумма= '+inttostr(summa);
 
end;