Цикл While
в Paskal ABC
Удалить все пробелы в сторке

var s:string;

begin

read(s);

while pos(' ',s)>0 do

delete(s,pos(' ',s),1);

write(s)

end.