Report "m := Dat[k]; это значит присваивать каждое число меньше или равно 4? что значит ..."