Получить третье слово из неповторяющихся символов, входящих как в первое, так и во второе слова.

type
  Izberateli = record
    TSecondName, THouse: array[1..100] of string;
  end;
var
  SecondName, House: Izberateli;
  i,n,l: byte;
begin
   writeln('Введите кол-во избирателей ');
   readln(n);
  writeln('Заполните данные о ', n, ' изберателях: ');
  for i:=1 to n do
    begin
      write('Фамилия: ');
       readln(SecondName.TSecondName[i]);
     write('Адрес: ');
       readln(House.THouse[i]);
    end;
  l:=0;
  for i:=1 to n do
    begin
      if House.THouse[i] = 'Красная'
        then
         l:=l+1;
     end;
     write('число избирателей которые проживают по улице Красная = ',l);
end.

const
  n = 255;
var
  Simple, Numbers: set of 1..n;
  Num, NextNum, i: integer;
begin
  Numbers:=[2..n];
  Simple:=[1];
  NextNum:=2;
  while Numbers <> [] do
  begin
    Num:=NextNum;
    while Num <= n do
    begin
      exclude(Numbers, Num);
      inc(Num, NextNum);
    end;
    include(Simple, NextNum);
    repeat inc(NextNum);
    until (NextNum in Numbers) or (NextNum > n);
  end;
  writeln('Простые числа от 1 до ', n, ': ');
  for i:=1 to n do
    if (i in Simple) then write(i, ' ');
end.