ако имаш даден паскалския код, т.е. ако разполагаш с файл imenaprogramata.pas, тогава ти е достатъчно да го изведеш на екрана - има такива процедури, виж в учебника
while not eof(f) do begin readnl(f,s); writeln(s); end;
ама е хубаво да ползваш библиотеките, дас а хванеш името на програмата, в случай, че юзера го е преименувал

Преди да направиш нещо, преброй до 20. усмихвай се по-често от другите