//ey, ex - строка, столбец эпицентра взрыва
//r - радиус взрыва + 1
for i := ey - r to ey + r do
if (i >= 1) and (i <= height) then
for j := ex - r to ex + r do
if (j >= 1) and (j <= width) then
if Sqr(i - ey) + Sqr(j - ex) <= Sqr( r ) then
param[i][j] := param[i][j] + 1;