Массив записей, как сделать n-мерный? Опции

[-=АнЮтА=-]

    Program mas_rec;
    uses crt;
     type rec=record
     nam:string[20];
snam:string[15];
nom:integer;
end;
var zap:rec;
i,n:integer;
m:array[1..n] of zap;
begin
end.

При такой форме записи ругается на неизвестное n. Сама понимаю что в записи ошибка, но как сделать возможность n-мерного массива не могу дотумкать...подскажите плз....

[volvo]

Ну, тогда тебе надо динамический массив:

{$R-}
type
  rec=record
    nam:string[20];
    snam:string[15];
    nom:integer;
  end;
  
  pmy_array = ^my_array;
  my_array = array[1 .. 1] of rec;

var
  dyn_array: pmy_array;

begin
  readln(n);
  getmem(dyn_array, n * sizeof(rec));

  { работать так: }
  dyn_arr^[1].nam := ...

  { удалять после окончания работы: }
  freemem(dyn_array, n * sizeof(rec));
end.