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

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

begin
write( введите строчку );
read(s); // вводим с клавиатуры строчку
While (Pos( ,s) lt;gt; 0) do // организуем цикл, пока в строке есть пробелы
Begin
Delete(s, Pos( ,s), 1); // определяем позицию пробела в строке с подмогою строковой функции Pos и устраняем его с помощью специальной строковой команды Delete
End;
write( приобретенная строчка без пробелов = , s); // выводим ответ
end.