Программа

const len=16;
      a:array[1..len] of string=(
'const len=16;',
'      a:array[1..len] of string=(',
'      );',
'var i,j:byte;',
'begin',
'  for i:=1 to len do',
'  begin',
'    if i=3',
'    then for j:=1 to len do',
'           if j=len',
'           then writeln('''',a[j],'''')',
'           else writeln('''',a[j],'''','')',
'    else ;',
'    writeln(a[i])',
'  end',
'end.'
      );
var i,j:byte;
begin
  for i:=1 to len do
  begin
    if i=3
    then for j:=1 to len do
           if j=len
           then writeln('''',a[j],'''')
           else writeln('''',a[j],'''','')
    else ;
    writeln(a[i])
  end
end.