Tin lớp 11 Nhập 1 xâu là họ tên của Trần Ngọc Duy. Xóa các kí tự trắng có trong xâu. Và in xâu kết quả ra màn hình. Ai giúp mik với ạ

program Xau;
uses CRT;
var     s,s1: string;
                 i: integer;
begin
            clrscr;
     
            write(‘Nhap xau S: ‘);readln(s);
     
            for i:=1 to length(s) do
     
                  If s[i] <> ‘ ‘ then s1:=s1 + s[i];
        
            write(s1);
     
readln;
end.