Vote cho mình nha bạn
program bt;
uses crt;
var s:string;
i,n,vt,d:integer;
begin
clrscr; d:=1;
write('Nhap xau: '); readln(S);
writeln('Do dai xau: ',length(S));
write('Nhap so luong ki tu can xoa: '); readln(n);
write('Nhap vi tri can xoa: '); readln(vt);
while (d<=n) do
begin
delete(s,vt,1);
d:=d+1;
end;
write('Xau sao khi xoa: ',s);
readln;
end.