[odd]

По просьбе пользователя RblSb библиотека была немного улучшена.
Добавлена возможность создания неограниченного числа массивов, а не только одного.

Добавлены 2 новые функции:
Arrays(i: integer) - Зарезервировать место под i массивов
SetArr(i: integer) - Выбрать массив номер i из массива массивов

Код примера, на котором проводилось тестирование:

Program array2d2test;
Uses array2d;
Var
s: String;
r: integer;
Begin
    arrays(3); // Резервируем место под 3 архива
    setarr(0); // Выбираем массив номер 0
    r:=dim(3, 3); // Создаем массив 3*3
    putint(2, 2, 1111); // Записываем число 1111 в массив
    setarr(1); // Выбираем массив номер 1
    r:=dim(5, 5); // Создаем массив 5*5
    putint(4, 4, 2222); // Записываем число 2222 в массив
    setarr(2); // Выбираем массив номер 3
    r:=dim(7, 7); // Создаем массив 7*7
    putint(6, 6, 3333); // Записываем число 3333 в массив
    setarr(0); // выбираем массив 0
    s:= '' + getint(2, 2); // считываем число
    setarr(1); // выбираем массив 1
    s:= s + ' ' + getint(4, 4); // считываем число
    setarr(2); // выбираем массив 2
    s:= s + ' ' + getint(6, 6); // считываем число
    
    DrawText(s, 0, 0); // выводим числа на дисплей
    Repaint;    
    Delay(5000);
End.