ПРОЦЕДУРА, даны три слова Опции

[sds]

Народ помогите, а то я чето туплю

пусть даны три слова. необходимо определить буквы, которые встречаются во всех 3 словах (для нахождения множества символов, образующих слово, используйте процедуру).

Заранее спасибо.

[klem4]

ой

тогда можно вот так:

procedure GetChars(const a, b, c: String);
var
  i: Byte;
begin
  for i := 1 to Length(a) do
   if (Pos(a[i], b) * Pos(a[i], c) > 0) and
    (Pos(a[i], copy(a, 1, i - 1)) = 0) then writeln(a[i]);
end;

var
  s1, s2, s3: String;

begin
  readln(s1); readln(s2); readln(s3);
  GetChars(s1, s2, s3);
end.