Пример программы, которая удаляет из строки символом с заданным номером.
var S:string[100];
k,n:integer;
begin
write('S...');
readln(S);
n:=length(S);
writeln('S=',S,' n=', n);
writeln('k=?');
readln(k);
delete(S,k,1);
n:=length(S);
writeln(' S=',S, ' n=',n);
end.