Массив записей, как сделать 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-мерного массива не могу дотумкать...подскажите плз....