Разработать алгоритм и написать программу построения матрицы!

[Worldboss777]

Всем привет! Ребята, нужна ваша помощь....
дано задание - Разработать алгоритм и написать программу в delphi console application построения матрицы!
матрица в приложенном фото, попробовал написать, но не получилось(

program Project2;

{$APPTYPE CONSOLE}
const
n=20
m=45
var
A:array [1..n,1..m] of integer;
I,J,B : integer;
begin
writeln ('ââåäèòå ðàçìåðíîñòü ìàññèâà ');
readln (b);
for i:=1 to b do
for J:=1 to b do
begin
A[I,J]:=1;
end;
A[1,1]:=0;
A[1,b]:=0;
A[b,1]:=0;
A[b,b]:=0;
writeln (A[I,J]:2, '..');
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

[[CODER]]

for i:=1 to n do
      for J:=1 to n do
if (i=1 or i=n) and (j=1 or j=n) then
      write('0');
   else 
      write('1');