Множества.... Опции

[jackal]

Привет!!!
Спасибо этому форуму за помощь которую он оказывает!!
Не могли бы вы мне помочь написать код на следующие задачки?:
1. Напечатать первые вхождения букв в текст
и еще одна
2. Напечатать все согласные глухие буквы (к,п,с,т,ф,х,ц,ч,ш,щ), которые есть во втором слове текста.
Спасибо за внимание

[sandman]

2)

Код

const
g=['е','ы','а','о','э','я','и','ю','Ё'];
  ss=['й','ц','к','н','г','ш','щ','з','х','ъ','ф','в','п','р','л','д','ж','ч','с','м','т','ь','б'];
var
  sog, gl :integer;
  str     :string;
Procedure Find(const str :string; var gl, sog :integer);

var
  i :integer;
begin
  for i:=1 to length(str) do
  begin
     if str[i] in g then
        inc(gl);
     if str[i] in ss then
        inc(sog)
  end
end;


begin
  sog:=0;
  gl:=0;
  Write(Введите строку из русских букв: ');
  Readln(str);
  Find(str, gl, sog);
  Writeln(согласных', sog, 'гласных', gl, ' букв в слове);
  Readln
end.

когда-то писал.. пляши от этого.. тут только множества поменять. сам, надеюсь, справишься.

[Gid]

Повторяться не буду, но всё-таки
Ты не прав!