Nhập sâu st. Xoá một kí tự được nhập từ bàn phím p

uses crt;
var i:longint; 
    p:char; 
    st:string; 
begin 
clrscr;
  write('Nhap vao xau st= '); 
        readln(st); 
  write('Nhap p vao= ');
        readln(p);
   for i:=1 to length(st) do 
  if st[i]=p then delete(st,i,1);
   writeln('Xau st sau khi xoa:   ',st); 
readln;
end.

$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH NHƯ SAU: 

Program lmao;

Uses crt;

Var st: string; p: integer;

Begin

Clrscr;

Writeln('Nhap xau ban muon: '); readln(st);

Writeln('Nhap vi tri cua ky tu ma ban muon xoa: '); readln(p);

Delete (st,p,1);

Writeln('Xau sau khi thay doi la ',st);

Readln;

End.

KHI NHẬP XÂU "vietnam" VÀ CHỌN XÓA KÍ TỰ THỨ 6 THÌ ĐƯỢC KẾT QUẢ NHƯ MÀN HÌNH!!!