Pascal/Turbo Pascal - ayuda con practica final

hola!! necesito ayuda tengo que entregar un programa como practica final de laboratorio y nose porque se me bloquea al querrer rellenar la matriz y no consigo avanzar para poder añadirle las demas condiciones.a continuacion os dejo las condiciones y lo que llevo de programa.gracias un saludo
LAS CONDICIONES ESTAN EN: ftp://www.cc.uah.es/pub/Alumnos/I.Informatica/Programacion.I/laboratorio%20Teresa%20Diez/practica%20final%20enunciado%2008.pdf

1er intento:
program a;
uses wincrt;
const
N=7;
M=7;
tablero:array[1..N,1..M] of char=((A,B,C,D,E,F,G),
(H,I,J,K,L,M,N),
(O,P,Q,R,S,T,U),
(V,W,X,Y,Z,#,#),
(#,#,@,@,@,@,@),
(2,3,4,Ñ,*,*,*),
(*,*,*,*,*,*,*));
var

i:dimension1;
j:dimension2;
begin
for i:=1 to N do
begin

for j:=1 to columnas do
begin
writeln(tablero[i,j],' ');
end;
writeln('');
end;
end.
2ºintento:
uses wincrt;
const
N=7;
M=7;
tablero:array[1..N,1..M] of char = ((A,B,C,D,E,F,G),
(H,I,J,K,L,M,N),
(O,P,Q,R,S,T,U)%