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 string.sub(betuk[x],y,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
		beturend = ""
		while true do
		    local talalt,x,y = keres3(i,j,string.sub(szo,betu,betu) )
		    if (talalt) then  beturend = beturend .. x .. "," .. y .. ": " .. tostring(string.sub(szo,betu,betu)) .. " "  betu = betu +1;                     print (beturend)  end
		    if betu >= #szo then break end
		end
		print (szo,beturend)

        end
    end

end


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