Работа со слогами Опции

[Sanek111]

Помогите пожалуйста с решеним одной задачки. Маюсь уже неделю, ищу материалы по данной теме, нигде нет. Нужна мне очень. ПОМОГИТЕ ПЛИЗЗЗ!!!

Вот Задание
а) Определить порядковые номера, считая от начала текста, определенных слогов, которые задаются в исходных данных;

б) сформировать новый текст, в котором каждый такой слог заключен в кавычки.
Заранее спасибо.

Сообщение разделено из темы "Строки"

[klem4]

Охх что-то я не врубился в задание ... мне оно видится вот так :

uses crt;
const slogs : array[1..5] of string = ('ma','lal','abc','tata','lol');
var s,news:string;
    i,j,count:integer;

Begin
   clrscr;
   readln(s);
   i:=1;count:=0;
   news:='';
   while i<=length(s) do
    begin
       for j:=1 to 5 do
        if copy(s,i,length(slogs[j]))=slogs[j] then
         begin
            inc(count);
            writeln(count,'). ',slogs[j]);
            news:=news+concat('"',slogs[j],'"');
         end;
         inc(i);
    end;

    writeln(news);
    readln;
end.

Сообщение отредактировано: klem4 - 30.04.2005 15:59