[12, 14]: Ожидалось константное выражение (Linux Terminal) - Pascal ABC

Формулировка задачи:

Константа объявлена и используется для задания размера массива Код, который выдает ошибку:

Uses GraphABC;
 
const xm = 900;
      ym = 900;
      dn = 16;
      dx = 25;
      dy = dx / sqrt(3);
      xn = xm div dx;
      yn = trunc(ym / dy);
 
var M: array[1..ym, 1..xm] of integer;
    R: array[1..yn{<--}, 1..xn] of decimal;
    x, y, xs, xy: integer;
    v, l, g: decimal;
 
begin
    SetWindowSize(ScreenWidth, ScreenHeight - 64);
end.

Пробовал такой вариант:

const xm = 900;
      ym = 900;
      dn = 16;
      dx = 25;
      dy = dx / sqrt(3);
      xn = xm div dx;
      ab: word = trunc(ym / dy);
      yn: word =ab;

Но это тоже не помогает.

Решение задачи: «[12, 14]: Ожидалось константное выражение (Linux Terminal)»

Листинг программы

Uses GraphABC;
 
const xm = 900;
      ym = 900;
      dn = 16;
      dx = 25;
      dy = dx/sqrt(3);
      xn = xm div dx;
      yn = trunc(ym/dy);
 
var M: array[,] of integer;
    R: array[,] of decimal;
    x, y, xs, xy: integer;
    v, l, g: decimal;
 
begin
setlength(M,ym,xn);
setlength(R,yn,xn);
SetWindowSize(ScreenWidth, ScreenHeight - 64);
end.

Объяснение кода листинга программы

Установка начального размера окна программы
Объявление и инициализация константных переменных:
- xm = 900 (ширина)
- ym = 900 (высота)
- dn = 16 (горизонтальное разрешение)
- dx = 25 (шаг по оси X)
- dy = dx/sqrt(3) (шаг по оси Y)
- xn = xm div dx (количество шагов по оси X)
- yn = trunc(ym/dy) (количество шагов по оси Y)
Создание двумерных массивов:
- M: array[ym, xn] of integer (массив целых чисел для хранения значений функции Манхэттена)
- R: array[yn, xn] of decimal (массив чисел с плавающей точкой для хранения значений функции Рейнольдса)
Объявление и инициализация переменных:
- x, y: integer (координаты текущего пикселя)
- xs, xy: integer (шаги по оси X и Y)
- v, l, g: decimal (скорость, плотность и ускорение)
Установка размера массива M в ym строк и xn столбцов
Установка размера массива R в yn строк и xn столбцов
Закрытие программы (конец выполнения)