Задачи на TP на обработку строки символов

[zoomisus19]

5.1 Ввести с клавиатуры строку символов. Признак окончания ввода строки – нажатие клавиши "Ввод". Программа должна определить длину введенной строки L, и, если длина L >6, то выделяется удаляется часть строки в { } скобках.
5.2 Дана строка символов. Найти слова, которые начинаются и заканчиваются одной и той же буквой, и подсчитать их количество.

[ZX Spectrum-128]

2.
http://interacia.net/index.php/2011-...-12-28-27.html

[zoomisus19]

спасибо! желательно еще 1 найти! очень надо!

[ZX Spectrum-128]

Да вы вбейте текст задачи в поисковик.
Как вы думаете, я вторую нашел?

[zoomisus19]

я вбивал! ничего похожего нет(

[Mad_Cat]

var S: string;
buf:string;
begin
readln(s);
if (length(s)>6) and (pos('{',s)<>0) and (pos('}',s)<>0) then
begin
buf:=copy(s,1,pos('{',s)-1);
delete(s,1,pos('{',s));
delete(s,1,pos('}',s));
s:=buf+s;
end;
writeln(s);
end.

zoom{isus}19
zoom19

[ZX Spectrum-128]

Из условия задачи не понял вместе с фигурными скобками или нет. Подправите, если необходимо.

Readln(s);
If length(s) >6 then
 Begin
  K1:=pos('{',s);
  K2:=pos('}',s);  // исправлено
  Delete(s,k1,k2-k1+1);
 End;

[zoomisus19]

Спасибо большое!