Составить программу, выводящую на экран данную матрицу

writeln('1111111');
writeln('0111110');
writeln('0011100');
writeln('0111110');
writeln('1111111');

uses crt;
const n=35;
 const a:array[1..n] of byte  =
(1,1,1,1,1,1,1,
0,1,1,1,1,1,0,
0,0,1,1,1,0,0,
0,1,1,1,1,1,0,
1,1,1,1,1,1,1);
var i:Integer;
 begin
 Writeln('Massiv:');
 for i:=1 to N do
 
 Write(a[i]:2);
 end.

:2

uses crt;
const n=7;
 const a:array[1..n] of byte  =
(1,1,1,1,1,1,1);
const b:array[1..n] of byte  =
(0,1,1,1,1,1,0);
const c:array[1..n] of byte  =
(0,0,1,1,1,0,0);
const d:array[1..n] of byte  =
(0,1,1,1,1,1,0);
const e:array[1..n] of byte  =
(1,1,1,1,1,1,1);
var i,j,i1,j1,i2:Integer;
 begin
 Writeln('Massiv:');
 
 for i:=1 to N do
 Write(a[i]);
 Writeln;
 for i:=1 to N do
 Write(b[i]);
 Writeln;
 for i:=1 to N do
 Write(c[i]);
 Writeln;
 for i:=1 to N do
 Write(d[i]);
 Writeln;
for i:=1 to N do
 Write(e[i]);
 Writeln;
 
 
 
 
 
 
 end.

uses crt;
const n=35;
 const a:array[1..n] of byte  =
(1,1,1,1,1,1,1,
0,1,1,1,1,1,0,
0,0,1,1,1,0,0,
0,1,1,1,1,1,0,
1,1,1,1,1,1,1);
var i:Integer;
 begin
 Writeln('Massiv:');
 for i:=1 to N do begin
  Write(a[i]:2);
  if i mod 7 = 0 then writeln;
 end;
 end.

program matr;
const
 N=7;
var
 Matrix:array [1..N,1..N] of byte;
 i,j,c,k,f:integer;
begin
 c:=0;
 f:=1;
 for I:=1 to N do
 begin
  k:=N-C*2;
  for J:=1 to N do
  begin
   if (J<=C)or(J>C+K) then
    Matrix[J,I]:=0
   else
    Matrix[J,I]:=1;
  end;
  if I>=4 then
   F:=-1;
  inc(C,F);
 end;
 for i:=1 to N do
 begin
  for j:=1 to N do
   write(Matrix[J,I],' ');
  writeln;
 end;
 readln;
end.

program st;
uses crt;
const
max=100;
var
m: array[1..max,1..max] of integer;
i,j,n:byte;
flag:boolean;
buf:integer;
BEGIN
 
repeat
writeln('Введите размерность вашей квадратной матрицы');
readln(n);
until n in [1..max];
 
for i:=1 to n do
 for j:=1 to n do
  begin
   writeln('a[ ', i ,',',j,' ] = ');
    read(m[i,j]);
     end;
     
  clrscr;
 writeln('Ваша матрица:');
 for i:=1 to n do
 begin
 for j:=1 to n do
  write(m[i,j],'   ');
    writeln;
     end;
     
flag:= false;
 
 for j:=1 to n do
 begin
 buf:=m[1,j];
    for i:=2 to n do
 
        if m[i,j] = buf then begin flag:= true; break; end else buf:=m[i,j];
                                                           end;
        if not flag then writeln(' таких столбцов нет') else writeln ('такой столбец есть');
        END.