Строковый тип Опции

[Selena]

Помогите решить задачи по строковым типам:
1.Дан текст, подсчетать в нем количество букв начинающихся и заканчивающихся на одну и туже букву.
2. Дан текст "'В киоске продают газеты стоимостью 5 руб. и журнал, стоимостью 50 руб.", нужно сформировать из этого текста текст: "'В киоске продают газеты стоимостью 10 руб. и 2 журнала, стоймостью 100 руб.".

В принципи я это зделала:
st1:='10';
st2:='2 журнала';
st3:='100';
begin tekst:=t;m:=Length(tekst);
delete(tekst,36,1);
delete(tekst,44,6);
delete(tekst,57,2); End
Else WriteLn(f,'Слово "стоимость" не содержится в тексте 2 раза');
Insert(st1,tekst,36);
Insert(st2,tekst,46);
Insert(st3,tekst,68);
WriteLn(f,'Преобразованный текст:');WriteLn(f,tekst);

Но оказалось что это надо делать с помощью цикла For. Подскажите как!
Спасибо огромноеЙ :yes:

[klem4]

по поводу второй не понимаю смысл задания ;)
а в первой все просто!

uses crt;
const limits=[#0..#32,'.',',',';','!','?'];
var s:string;
    i,bword,count:integer;

Begin
   clrscr;
   write('s='); readln(s);
   i:=1; count:=0;

   while i<=length(s) do
    begin
       while(i<=length(s))and(s[i] in limits) do
        inc(i);
       if i<=length(s) then
        begin
           bword:=i;
           while(i<=length(s))and(not(s[i] in limits)) do
            inc(i);
           if s[bword]=s[pred(i)] then
            inc(count);
        end;
    end;

   writeln('count=',count);
   readln;
end.

;)