arrays - 2次元配列(nxn)の作成 *Pascal

Question

Pascalで配列関数を使用してMatrixを作成する方法を知っている人はいますか?

出力は次のようになります。

00100
01110
11111
01110
00100

ありがとう。

編集：

これは私のコードソファーです:

program borlpasc;
var a:array[1..100,1..100] of integer;
    i,j,n:integer;
begin write('Enter the Number N='); {Example: 5}
   readln(n);
   for i:=1 to n do
       for j:=1 to n do
           begin a[i,j]:=0;
           if n mod 2 = 1 then begin
           a[n div 2 + 1, j] := 1;
           a[i, n div 2 + 1] := 1;
           end;
           end;
    for i:=1 to n do
        begin for j:=1 to n do write(a[i,j]:2);
            writeln
        end;
     readln
end.

しかし、これだけを取得します:

00100
00100
11111
00100
00100