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

Var s:string;
begin
writeln('Введите строку:');
readln(s);
while pos(' ',s)<>0 do delete(s,pos(' ',s),1);
writeln(s);
end.

Пример:
Введите строку:
Удалить из нее все пробелы. 
Удалитьизнеевсепробелы.