Exercício 6!

.Escreva um procedimento que receba uma string como parâmetro e que retire todos 

os brancos contidos no mesmo. 

Var i, TAM:Byte;

Begin

TAM:=lenght(s);

i:=1;

While i<=TAM do

If s[i]= ‘ ’ then

Begin

Delete(s,i,1);

TAM:=TAM-1;