Ответ:

Program var15_stroki;

Uses crt;

Var s:string;

   a,i,endstr:integer;

Begin

       clrscr;

       Writeln('Введите строку');

       Readln(s);

       endstr:=Length(s);

       for i:=1 to endstr do

          if s[i]='-' then

          Delete(s,i,1);

 for  a:=1 to endstr do  

          if s[a]=' ' then

          Delete(s,a,1);

       Writeln(s);

       Readln;

End.

Объяснение: