programm, das eigenen Quellcode ausgibt?

[Illuminator-23-5]

ok, ein beispiel:

das programm sieht ca. so aus:

program irgendwas;
uses
sysUtils;
begin
//tu etwas
end.

die Ausgabe soll dann sein:
program irgendwas;
uses
sysUtils;
begin
//tu etwas
end.

sprich das Programm soll den Quellcode aus dem es besteht, ausgegeben werden. Unter quellcode ist hier der gemeint, der in delphi oder pascal o.ä. eingetippt wird!