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

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);