[Sevenfold]

Проблема не в твоём коде. Он безупречен)
Вот:

Код:

for i:=0 to 30 do
for j:=0 to 30 do
stroka:= stroka+','+massiv[j,i];

Проблема была в первой запятой.
Исправил так:
delete(stroka,1,1);