Nhập vào một xâu từ bàn phím, đưa ra màn hình xâu thu được bằng cách loại bỏ các dấu cách từ xâu đã cho(dùng hàm pos ,delete)

Vote mình nha

uses crt;
var s:string;
begin
clrscr;
 write('Nhap chuoi: ');
 readln(s);
 while s[1]=' ' do delete(s,1,1);
 while s[length(s)]=' ' do delete(s,length(s),1);
 while pos(' ',s)<>0 do delete(s,pos(' ',s),1);
 writeln(s);
 readln;
end.

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

writeln('Xau vua nhap la: ',st);

for i:=1 to d do 

  if st[i]=#32 then delete(st,i,1);

writeln('Xau moi la: ',st);

readln;

end.