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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.