[Страдалецъ]

Перед циклом добавьте строчку:

Код:

SetLength(m, zomb);

И массив отсчитывается с 0-элемента поэтому:

Код:

for i:=0 to zomb-1 do