Написать программу, которая во время выполнения выводит свой код

var
  s: array[1..18] of string;
  i, j: integer;
begin
  s[ 1]:='var';
  s[ 2]:='  s: array[1..18] of string;';
  s[ 3]:='  i, j: integer;';
  s[ 4]:='begin';
  s[ 5]:='  for i:=1 to 4 do';
  s[ 6]:='    writeln(s[i]);';
  s[ 7]:='  for i:=1 to 18 do begin';
  s[ 8]:='    write(''  s['', i:2, '']:='''''');';
  s[ 9]:='    for j:=1 to length(s[i]) do';
  s[10]:='      if s[i][j]<>'''''''' then';
  s[11]:='        write(s[i][j])';
  s[12]:='      else';
  s[13]:='        write('''''''''''');';
  s[14]:='    writeln('''''';'');';
  s[15]:='    end;';
  s[16]:='  for i:=5 to 18 do';
  s[17]:='    writeln(s[i]);';
  s[18]:='end.';
  for i:=1 to 4 do
    writeln(s[i]);
  for i:=1 to 18 do begin
    write('  s[', i:2, ']:=''');
    for j:=1 to length(s[i]) do
      if s[i][j]<>'''' then
        write(s[i][j])
      else
        write('''''');
    writeln(''';');
    end;
  for i:=5 to 18 do
    writeln(s[i]);
end.