Дан текст. Удалить все слова, которые начинаются на одну и ту же букву.(Pascal)

Вот примерно так

Объяснение:

var

 s, s1: string;

 i, k: integer;

begin

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

 readln(s);

 //s := 'мама папа дед лес поп';

 writeln(s);

 s := s + ' ';

 i := 0;

 k := 1;

 while i < Length(s) do

 begin

   inc(i);

   if not (s[i] in [' ', ',', '-']) then  

     s1 := s1 + s[i]

      else  

   begin

     if s1[1] = s1[Length(s1)] then  

     begin

       //    writeln(s1);

       delete(s, k, Length(s1) + 1);

       //    writeln(s);

     end;  

     inc(k, Length(s1) + 1);

     s1 := '';

     //writeln(k);

   end;

 end;

 writeln(s);

end.