[Alegun]

Размерность массива задаётся один раз (конечно, если только не нужно его изменять в процессе), нужно вынести SetLength из цикла и поставить первой строчкой сразу после начального begin.