nhập vào từ bàn phím 1 xâu không quá 100 kí tự . in ra màn hình xâu sau khi đã xóa bỏ tất cả các kí tự chữ cái

uses crt;
var s:string;
    i:byte;
begin
   clrscr;
   write('Nhap xau: '); readln(s);
   while i<=length(s) do
   begin
      if (s[i] in ['A'..'z']) then 
      begin
         delete(s,i,1);
         dec(i);
      end;
      inc(i);
   end;
   write('Xau ket qua la: ',s);
   readln
end.

var s:string;
i:byte;
begin
clrscr;
write(‘Nhap xau: ‘); readln(s);
while i<=length(s) do
begin
if (s[i] in [‘A’..’z’]) then 
begin
delete(s,i,1);
dec(i);
end;
inc(i);
end;
write(‘Xau ket qua la: ‘,s);
readln
end.