Динамическая память в Free Pascal

[disputant]

Добрый день!

Никак не могу сообразить, что не так в Free Pascal (в режиме работы Turbo Pascal) в смысле работы с динамической памятью. Приложенная программа создает двумерный массив как указатель на массив указателей на массивы целых чисел. В Turbo Pascal 6.0 компилируется и работает на ура, а в Free Pascal хоть и компилируется, но вылетает с 201 ошибкой при попытке инициализации элементов первого массива.

Подскажите, в чем я неправ, и как должен выглядеть код, который одинаково компилируем и работоспособен и в Free Pascal, и в Turbo Pascal...

Заранее спасибо!

array.rar

[sign]

Запустил в лазарусе.
Ошибок нет.

[Vadim]

disputant
Ваша программа успешно компилируется и работает. Никакой ошибки 201 нет.

[Максим]

201 - это ошибка проверки границ диапазона. Я не удивляюсь её наличию, учитывая, что в программе объявлены массивы вида

Код: Выделить всё

TTmas  =array[1..1] of integer;
TTmatr =array[1..1] of Tmas;