Плиз помогите безотлагательно. Составить программку, которая делает и выводит на экран массив

Пример в Excel для длины слова от 5 до 40
Код программы можно поглядеть нажав Alt+F11

Program asd;
USES crt;
Const n=7;
VAR A:array [1..n,1..n] of integer;
i,j,q,w:integer;
BEGIN 
For i:=1 to n do 
 begin 
 For j:=1 to n do   
 begin 
  if((jlt;i)and(jlt;n-i+1))or((jgt;n-i+1)and(jgt;i)) then a[i,j]:=1 
   else a[i,j]:=0;     
write(a[i,j]); 
end; 
Writeln 
end;
END.
Занимательное задание) принудило поразмыслить