Viết chương trình nhập vào 1 xâu từ bàn phím .a. In ra màn hình độ dài của xâu vừa nhập .b. Sử dụng xâu vừa nhập ở trên. Tiếp tục nhập từ bàn phím n kí tự cần xóa, vị trí vt cần xóa. In ra màn hình xâu sau khi xóa. * ai giúp em với ạ ... thanks

tham khảo 

uses crt;
var a,b:string;
begin
clrscr;
write('Nhap xau ki tu thu nhat: ');readln(a);
write('Nhap xau ki tu thu hai: ');readln(b);
if length(a)>length(b) then writeln(b) else if length(b)>length(a) then writeln(a) else begin writeln(a); writeln(b);end;
readln
end.

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.