Xóa ký tự số

Viết chương trình xóa các ký tự chữ số trong một xâu ký tự được nhập vào từ bàn phím.
Var
       code,vg,t:integer;
       s: String;
BEGIN
       Write('Nhap chuoi: '); Readln(s);
       t:=1;
       Repeat
           Val(s[t],vg,code);
           if code = 0 then delete(s,t,1)
           else t:=t+1;
       Until (t> length(s));
       Writeln('Chuoi ki tu chu con lai la: ',s);
       Readln;
END.