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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.