Составить программу, которая в тексте удаляет все пробелы.

program zz1;

var s:string; / / задаем переменную строкового типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

While (Pos (' ', s) 0) do / / организуем цикл, пока в строке есть пробелы

Begin

Delete (s, Pos (' ', s), 1); / / определяем позицию пробела в строке с помощью строковой функции Pos и удаляем его с помощью специальной строковой команды Delete

End;

write (' полученная строка без пробелов = ', s); / / выводим ответ

end.