betuk = {"BOVNRKBFNAYXIHZGJODDFCHS",
"BLZTKJMLODFVGRTOPMRYXAOP",
"ORULTDILISSZERELEMIRCHMK",
"SQBECUIKLOWNRJTHLVVAGAIN",
"RJCJVQDFBGAIORUCFHEJOTHT",
"TSGIZARKYNXEDFCHJNGTZAVD",
"RKIOWALVBGFTFDAKHZAJOLRP",
"KBFNACBERDAIERTXHBZMKOGZ",
"KGTBJEGENGSZTEROSZTAGMJW",
"YZSCNDUXDTTHDAVCNJUKLAXT",
"YHYFTGTPJUINPRZFDMVGGRIP",
"MFQELIRNVGMNUTAMGRZDRNVE",
"AHILACOKSACKETHJMXHJNYFR",
"PVBNUNUSTZSMLODFVSNSWEZT",
"ASZERELMUNKLAPJAIKVNBKKA",
"ZUILLOTKTANLSXRGCASERAFC",
"ZDXSFJNLKGAABRLFUHYSQBLD",
"HTNOANGKHRJPZZUDZFZPHAGN",
"KHTNASVZRCEFTOLKJOVNGNAT",
}

szavak = {"gengszterosztag"};

felhasznalt = {}
betu = 0

function keres2(x,y, betu)
    if not felhasznalt[x] or not felhasznalt[x][y] then
	return betuk[x][y] == betu
    end
    return false
end

function keres3(x,y,betu)
    for i=x-1,x+1 do
	for j=y-1,y+1 do
	    if (keres2(x,y,betu)) then
		if not felhasznalt[i] then felhasznalt[i] = {} end
		felhasznalt[i][j] = true
		return true,i,j
	    end
	end
    end
    return false
end


function keres(szo)

    for i=1,19 do
	felhasznalt[i] = {}
        for j=1,24 do
		felhasznalt = {}
		betu = 0
		while true do
		    local talalt,x,y = keres3(i,j,szo[betu])
		    if (talalt) then betu = betu +1 end

		end


        end
    end

end


for i,szo in pairs(szavak) do
    keres(szo)
end