Ввести имя файла и изменить его на расширение ". exe". Помогите дописать задачу:

program qq;

var s:string;

n: integer;

begin

s: = ('Привет. txt');

read (s);

n:=Pos ('.', s);

Pelete (s, n+1,3);

s:=

Замечание: предполагается, что в имени файла нет ".".

program qq;

var s:string;

begin

writeln ('Введите имя файла:');

readln (s);

s:=copy (s, 1, pos ('.', s)) + 'exe';

writeln (s);

end.

Пример:

Введите имя файла:

Привет. txt

Привет. exe