viết ct pascal xóa kí tự là chữ cái có trong xâu Vd:"Hoc tin hoc lop 8" "8"

uses crt;
 var s,a : string;
  d,i : byte ;
   begin
    clrscr;
    write('Nhap xau: ');
    readln(s);
 for i := 1 to length(s) do
 begin
  if (ord(s[i])>=48) and (ord(s[i])<=57) then
      begin
      a := a + s[i];
      d := d + 1 ;
      end;
 end ;
  writeln('Xau sau khi xoa chu, dau cach ... la : ',a);
  writeln('So ky tu da xoa: ',d);
      end .