Question

Ввести имя файла и изменить его на расширение ".exe". Помогите дописать задачу:
program qq;
var s:string;
n: integer;
begin
s:=('Привет.txt');
read(s);
n:=Pos('.',s);
Pelete(s,n+1,3);
s:=