Procedure Supp_Esp

Procedure supp_esp (var ch:String);
Var
x:integer;
Begin
    x := Length(ch);
  While Pos('  ',ch)<>0 Do
    Delete (ch,Pos('  ',ch),1);
  If ch[1]=' ' Then
    Delete (ch,1,1);
  If ch[x]=' ' Then
    Delete (ch,x,1);
End;