[Alegun]

Процедуры тоже не помешают, например вместо

Код:

sum_del:=sum_del +m;

можно воткнуть

Код:

Inc(sum_del, m);