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 i:integer;

      s1,s2:string[100];

begin

clrscr;

writeln('Nhap xau khong qua 100 ki tu:');readln(s1);

s2:='';

for i := 1 to length(s1) do

if (ord(s1[i]) in ['32'..'64']) or (ord(s1[i]) in ['91'..'96']) or (ord(s1[i]) in ['123'..'126']) then s2:=s2+s1[i];

writeln('Xau da xoa tat ca cac ki tu chu cai:');writeln(s2);

readln;

end.

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);
         i:=i-1;
      end;
      i:=i+1;
   end;
   write('Xau ket qua la: ',s);
   readln
end.