Ввести имя файла и изменить его на расширение ".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

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  var p:=LastPos('.',s);
  if p=0 then s+='.exe'
  else s:=s[:p+1]+'exe';
  Writeln(s)
end.

Примеры
Привет.txt
Привет.exe

D:\Files\MyDir\Salut.html
D:\Files\MyDir\Salut.exe

Щас укушу
Щас укушу.exe