Дана строка , удалить из строки символы пробела.

 uses crt;
 var  s :String; 
       i,l :integer;
 begin 
   write ('Введите строку: '); 
   readln(s); 
   for i:=1 to Length(s) do   
     if s[i]=' ' then Delete(s,i,1); 
   writeln(s); 
end.