задать массив как константу...нужен совет

[dead-vip]

Имеется фрагмент кода:

var
...
begin
readln(g);
case g of
  1:begin
      A[1,1]:=5;    A[1,2]:=9;    A[1,3]:=-7;   A[1,4]:=55;   A[1,5]:=-34;
      A[2,1]:=-23;  A[2,2]:=-22;  A[2,3]:=55;   A[2,4]:=-9;   A[2,5]:=5;
      A[3,1]:=76;   A[3,2]:=60;   A[3,3]:=-40;  A[3,4]:=21;   A[3,5]:=55;
      A[4,1]:=-3;   A[4,2]:=55;   A[4,3]:=39;  A[4,4]:=-66;  A[4,5]:=48;
      A[5,1]:=-55;  A[5,2]:=22;   A[5,3]:=-19;  A[5,4]:=0;    A[5,5]:=-3;
    end;
  2: for i:=1 to 5 do
        for j:=1 to 5 do
          A[i,j]:=-50+random(100);
  3: for i:=1 to 5 do
        for j:=1 to 5 do
          readln(A[i,j]);
end;

Тоесть при выборе 1 массив задается как константа, 2 - случайные числа, 3 - вводится с клавиатуры. Подскажите, пожалуйста, еще способы подачи массива как константы. Заранее благодарен.

[alex_fcsm]

type Tmas=array[1..3,1..3] of integer;
const  x:TMas=((1,2,3),
                      (2,3,4),
                      (5,6,7)
                               );

[dead-vip]

Насколько я понимаю то раздел констант нужно писать до начала самой программы, а мне нужно задать массив уже после начала.
Есле делать так:

type
  tmas=array[1..5,1..5]of integer;
var
g:1..3;
A:tmas;
begin
readln(g);
case g of
  1:
     begin
       const
       x:tmas=((1,2,3,4,5),
                   (1,2,3,4,5),
                   (1,2,3,4,5),
                   (1,2,3,4,5),
                   (1,2,3,4,5));
     end;
  2:...
  3:...
end;

не получается((

[alex_fcsm]

Сообщение от dead-vip

Тоесть при выборе 1 массив задается как константа, 2 - случайные числа, 3 - вводится с клавиатуры. Подскажите, пожалуйста, еще способы подачи массива как константы. Заранее благодарен.

4 - прочитать из файла

[dead-vip]

Это да, но задание стоит иначе...)

Вибір типу заповнення виконується за допомогою примітивного меню:
Як заповнювати масив?
1. Як константу. 2. Випадкові числа. 3. Вручну.
Введіть номер варіанта. Меню організоване за допомогою оператора CASE.

[alex_fcsm]

Тогда не морочьте себе голову