Найти общие элементы n множеств - Turbo Pascal - Ответ 7511617

type
  M = set of char;
 
var
  a: array[1..255] of M;
  buf: M;
  n, i, j: integer;
  c: String;
  {}
  t,z: integer;
  x: array [1..1000] of char;
 
begin
  writeln('Введите количество элеметов массива С: ');
  readln(t);
  for i := 1 to t do 
  begin
    write('c[', i, ']=');
    readln(x[i]);
  end;
writeln('Количество множеств: ');
  readln(n);
  for i := 1 to n do 
  begin
    writeln('Введите элементы множествa [', i, ']= ');
    readln(c);
 for j := 1 to length(c) do
      a[i] := a[i] + [c[j]];
  end;
 
{    if x[i] in a[i] then begin 
    for i:=1 to n do begin} //тут нужно правильно все написать. Или другим способом
    buf := a[1];
    for z:= 2 to n do
    
    buf := buf * a[i];
    end;
    
    writeln('Resultat: ', buf); end
    else
write('error');
 
end.