дана строка ,содержащее слово,записанное через дефис. написать программу ,которая вставляет пробелы перед и после дефиса. помогите пожалуйста!

var s: string;    i: integer;begin   write('строка:  ');   readln(s);     i:=1;   while i<=length(s) do   begin     if s[i]='-' then     begin       s:=copy(s,1,i-1)+' '+s[i]+' '+       copy(s,i+1,length(s)-i+3);       i:=i+2;    end;    i:=i+1;  end;  writeln('новая строка:  ',s);end.