Developing.ru

а если все буквы искать, то можно так попробовать

var
i,p: Integer;
letters_yes :array[1..5] of boolean; //есть ли буква, 5 = длина BEGIN
resultat : //есть ли все буквы из BEGIN в строке MyString

begin
i := Length(MyString);
resultat:=true;
while i > 0 do
begin
p:=pos(Mystring[i],'begin'); // ищем букву строки в тексте
if p>0 then Imeetsa[p]:=true;
i := i - 1;
end;
for i:=1 to 5 do
resultat:=resultat and Imeetsa[i];
end;

Попробуй вот так:

var i: Integer;
Imeetsa : boolean; //показывает имеются или нет нужные символы

begin
i := Length(MyString);
while i > 0 do
begin
if MyString[i] in ['b', 'e', 'g', 'i', 'n'] then Imeetsa := true;
i := i - 1;
end;
end;

В Паскале всего пару недель - и в этом пока ещё новичок. Мне [i]очень[/i] нужна [u]ваша[/u] помощь по решению такой вот задачи...

[b]Задана строка символов. Составить программу, выясняющую, имеется ли в ней буквы из слова "begin". Порядок букв не важен.[/b]