Здравствуйте, Иванов Виктор!
Решение в приложении.

Приложение:
uses crt;
const n=30;
var s:string[n];
i,k:integer;
begin
clrscr;
k:=0;
repeat {вводим строку и проверяем правильность ввода}
writeln('Vvedite posledovatelnost iz 30 simvolov, vkluchaushyu probely:');
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then k:=k+1;
if k=0 then writeln('Probelov net!. Povtorite vvod.'){если нет пробелов}
else if k=length(s){если все пробелы} then writeln('Posledovatelnost soderzit tolko Ppobely!. Povtorite vvod.');
until (k>0)and(k<length(s));
i:=1;
while s[i]<>' ' do {пока в начале строки пробелы, удаляем их}
begin
delete(s,1,1);
inc(i);
end;
i:=length(s);
while s[i]<>' ' do {то же с конца}
begin
delete(s,1,1);
dec(i);
end;
while pos('--',s)>0 do {пока в оставшейсе строке есть два пробела сподряд(-- пробелы)}
delete(s,pos('--',s),1);{обязательно в кавычках по два пробела}
write(s);
readln
end.