Составить программу, генерирующую массив A(N,M) по заданному образцу

var a:array[1..100, 1..100] of integer;
    i,j,n:integer;
begin
writeln('Введите размерность матрицы');
readln(n);
for i:=1 to n do
    begin
         for j:=1 to n do
             begin
                  if (((i=1) or (j=1)) or ((i=n) or (j=n))) then a[i,j]:=1 
                  else  a[i,j]:=0;
                  write(a[i,j],' ');
             end;
         writeln;
    end;
readln;
end.

var 
  a : array[1 .. 100, 1 .. 100] of integer;
  n, i, j : integer;
begin
  write('n = '); readln(n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := 1 - ord(((j = 1) or (j = n)) and ((i > 1) and (i < n)));
      write(a[i, j]:3);
    end;
    writeln;
  end;
end.

var 
  a : array[1 .. 100, 1 .. 100] of integer;
  n, i, j : integer;
begin
  write('n = '); readln(n);
  
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := 1;
      
  for i := 2 to n-1 do
    begin
      a[i, 1] := 0;
      a[i, n] := 0;
    end;
    
  for i := 1 to n do
    begin
      for j := 1 to n do
        Write(a[i, j]:2);
      WriteLn;
    end;
end.