Write a program that removes all spaces in the text.

program zz1;
var s: string; // set a variable of string type

begin
write (‘enter string’);
read (s); // enter a string from the keyboard
While (Pos (”, s) <> 0) do // organize a loop while there are spaces in the line
Begin
Delete (s, Pos (”, s), 1); // determine the position of the space in the string using the Pos string function and delete it using the special string command Delete
End;
write (‘the resulting string without spaces =’, s); // display the answer
end.