У вас
Код:
const
N = 10;
ArrExt : array[1..N] of String = ('3FR', 'ACCDB', 'TXT', 'AI', 'ARW', 'BAY'); размерность массива задана как 10 (N), а тепепрь посчитайте сколько строк всего задано принудительно, здесь должно быть так
Код:
ArrExt : array[1..N] of String = ('','','','','3FR', 'ACCDB', 'TXT', 'AI', 'ARW', 'BAY'); и явные константы нужно вынести в общий доступ