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

n:=Pos('.',s);Pelete(s,n+1,3);

Нет такого Pelete(s,n+1,3); Есть Delete()

Ну тогда :n:=Pos('.',s);Delete(s,n+1,3);

Возможно написать эту задачу используя это: n:=Pos('.',s);Delete(s,n+1,3);?

Существует много способов решить эту задачу. Если использовать n:=Pos('.',s); и Delete(s,n+1,3); получится сложнее и длиннее.