Pascal Stringi.

[rusfin01]

Ввести текст и определить количество символов от первой заданной буквы до последней такой же буквы в тексте. Определить, находится ли в этом промежутке слово минимальной длины и если находится, то удалить его из текста. Если заданной буквы в тексте нет или она не повторяется, то сообщить об этом.

[rusfin01]

uses
        crt;
var
        a: array[1..100] of string;{massiv slov}
        p: array[1..100] of integer; {massiv posicii slov}
        len: integer; {kolichestvo slov}
        i: integer;
        text: string; {text}
        c: char; {vvedenni simvol}
        k1, k2: integer; {1-ya i poslednya positicii symvola}
        m: set of char; {mnojestvo symvolov iz kotorih sostoyat slova}
        t: boolean; {zapisivaesya slovo ili net}
        str: string; {slovo}
        min: integer; {index minimalnogo slova}
begin
        clrscr;

        m:= ['А'..'Я', 'а'..'я', '0'..'9', '*'];
        readln(text);
        write('Vvedite bukvu: ');
        readln(c);
        text:= ' '+text+' ';

        t:= false;
        str:= '';
        len:= 0;
        for i:= 1 to length(text) do {probegaem po vsei stroke}
        begin
                if t then
                begin
                        if text[i] in m then
                                str:= str+text[i]
                        else
                        begin
                                t:= false;
                                len:= len+1;
                                a[len]:= str;
                                str:= '';
                        end;
                end else
                begin
                        if text[i] in m then
                        begin
                                t:= true;
                                str:= str+text[i];
                                p[len+1]:= i;
                        end;
                end;
        end;

        k1:= 0;
        k2:= 0;
        for i:= 1 to length(text) do{nahodim 1-i simvol}
                if text[i]=c then
                begin
                        k1:= i;
                        break;
                end;

        for i:= length(text) downto 1 do {nahodim posledni simvol}
                if text[i]=c then
                begin
                        k2:= i;
                        break;
                end;

        if k1=0 then
        begin
                writeln('Takoi bukvi net');
                readkey;
                exit;
        end;
        if k1=k2 then
        begin
                writeln('Bukva vstrechaetsya 1 raz');
                readkey;
                exit;
        end;

        writeln('Kol-vo: ', k2-k1+1);

        min:= 1;
        for i:= 2 to len do {nahodim minimalni}
        begin
                if length(a[min])>length(a[i]) then
                        min:= i;
        end;

        if (p[min]>=k1) and (p[min]+length(a[min])<=k2) then
        begin
                writeln('EST');
                delete(text, p[min], length(a[min]));
                delete(text, 1, 1);
                writeln(text);
        end else
                writeln('NET');

        readkey;
end.

вот) может как-нить упростить, попроще сделать??


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[rusfin01]

Хорошо!!! может теперь кто нить поможет??