Помогите, пожалуйста! Пользователь вводит  в любую строку с любым колличеством символов любыми знаками. Удалить все пробелы и вывести конечную строку на экран. (задача на Паскале)

vars, news: string;i: integer;beginreadln(s);for i:=1 to length(s) do if s[i]<>' ' then news:=news+s[i];write(news);end.