Viết chương trình nhập vào một xâu bất kì xuất ra màng hình xâu đó sau khi đã xóa đi các kí tự số Giúp mik vs mik cần gấp

uses crt;
var
    n,s : string;
    i : longint;
const num = ['0'..'9'];
begin
clrscr;
    read(n);
    for i := 1 to length(n) do
        if not ( n[i] in num ) then s := s + n[i];
    writeln(s);
end.

- Phương án : tạo xâu mới bằng cách cộng các ký tự. Nếu ký tự thuộc đoạn '0'..'9' thì không cộng

*Pascal :

uses crt;
  const number = ['0'..'9'];
    var s1, s2 : string ;
        i : byte ;
begin
    clrscr;
    readln(s1);
    
    s2 := '';
    for i := 1 to length(s1) do 
        if not (s1[i] in number) then s2 := s2 + s1[i];
    write(s2);
      readln;
end .