Pascal; Дан текст, слова которого отделяются друг от друга пробелами.

Pascal;
Дан текст, слова которого отделяются друг от друга пробелами. Удалить из тек-ста слова, которые начинаются и заканчиваются одной и той же буквой.
Распечатать начальный и полученный тексты.

Вот сама задача, только там не работает delete.

var
s,s2, a, b: string;
i: integer;
begin
writeln('Введите текст');
readln(b);
s := b;
writeLn;
writeln('Удалённые слова: ');
for i := 1 to length(s) do
begin
if s[i] lt;gt; ' ' then
a := a + s[i];
if (s[i] = ' ') or (i = length(s)) then
begin
if a[1] = a[length(a)] then
writeln(a);
a := '';
delete(s,i,length(a));
end;
end;
WriteLn;
WriteLn('Начальный');
WriteLn(b);
Writeln('Изменённый текст');
WriteLn(s);

end.