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

[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]

все что пришло в голову :
2)

uses crt;
var
   s,s1:string;
   i:integer;

Begin
   clrscr;
   s:='В киоске продают газеты стоимостью 5 руб. и журнал стоимостью 50 руб.';
   writeln(s);
   s1:='5 руб. и журнал стоимостью 50 руб.';
   i:=1;
   if pos(s1,s)<>0 then
    begin
       while copy(s,i,length(s1))<>s1 do
        inc(i);
       delete(s,i,length(s1));
       insert('10 руб. и 2 журнала стоимостью 100 руб.',s,i);
    end;

    writeln(s);
    readln;
end.

;)

Сообщение отредактировано: klem4 - 26.05.2005 17:50