Update подсчётом.pas