Заполнить двухмерный массив размером 7х7 следующим образом: — Pascal(Паскаль)

var 
a: array[1..7,1..7] of integer;
begin
for i:=1 to 7 do
  begin
    a[4,i]:=1;
    a[i,4]:=1;
  end;
end.