döngüyü 3 kere çalıştırdığın için ilk 3 dize elemanına kadar bakıyor. döngüyü dize sayısı kadar çevir. for i:= 1 to (6div2) do yerine for i:=1 to DIZESAYISI do