Как избавиться от ненужных чисел

[Славный]

Собственно, запустив программу, вы наткнетесь на мою проблему:
Из массива, состоящего из 25 чисел, раскидываются числа на 3 массива по хитрому алгоритму. В итоге, получается откуда ни возьмись 2 лишних числа. Прошу помочь начинающему программеру. Срочно, завтра сдавать! Заранее благодарен!

[Sibedir]

Смысл в том, что даже после того, как счетчит перевалил за 25, цикл продолжает работать. Я сильно не вникал. Минимум переделок, но вроде работает.
Создал новую процедуру

    procedure MyInc (var Ai: Integer);
    begin
      inc (Ai);
      if Ai = 26 then begin
        label8.Caption:=s1;
        label9.Caption:=s2;
        label10.Caption:=s3;
        label12.Caption:=IntToStr(summa(m1));
        label13.Caption:=IntToStr(summa(m2));
        label14.Caption:=IntToStr(summa(m3));
        label16.Caption:=IntToStr(max(sm1,sm2,sm3));
      end;
    end;

И заменил все inc (i) на MyInc(i). И убрал в конце обработчика

        label8.Caption:=s1;
        label9.Caption:=s2;
        label10.Caption:=s3;
        label12.Caption:=IntToStr(summa(m1));
        label13.Caption:=IntToStr(summa(m2));
        label14.Caption:=IntToStr(summa(m3));
        label16.Caption:=IntToStr(max(sm1,sm2,sm3));