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

var s:string;beginwriteln('Введите строку:');readln(s);while pos(' ',s)<>0 do delete(s,pos(' ',s),1);writeln(s);end.Пример:Введите строку:Удалить из нее все пробелы. Удалитьизнеевсепробелы.