Question

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] <> ' ' 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.

Answer 1

Заменить участок текста:

writeln('Удалённые слова: ');  

i:=1; b:='';

repeat

 if s[i] <> ' ' then  

 a := a + s[i];  

 if (s[i] = ' ') or (i = length(s)) then  

 begin  

   if a[1] = a[length(a)] then writeln(a)

   else

   begin

     b:=b+a;

     if i<>length(s) then b:=b+' ';

   end;  

   a:='';

 end;  

 i:=i+1;

until i>length(s);  

WriteLn;  

WriteLn('Исходный');  

WriteLn(s);  

Writeln('Изменённый текст');  

WriteLn(b);