Строка: Определить и напечатать те буквы второго предложение, из которых состоит первое.

program Project1;
const
  str3 = ' ,.;:"()*+=/-\?!1234567890'; // Константа, которая хранит знаки, которые не являются буквами.
var
  str1: string; // Переменная для хранения первого предложения.
  str2: string; // переменная для хранения второго предложения.
  a: string; // Промежуточная переменная. 
  i: integer; // Вспомогательная переменная для организации цикла.
begin
  Writeln('Введите первое предложение:');
  Readln(str1);
  Writeln('Введите второе предложение:');
  Readln(str2);
 
  for i:= 1 to length(str2) do
    begin
      a:= copy(str2,i,1);
      if (pos(a,str1) <> 0) and (pos(a,str3) = 0) then
        write(a,' ');
    end;
  Readln;
end.

var
  s: String;
  c1, c2: Set of Char;
  i: Integer;
  c: Char;
begin
  Write('1: '); ReadLn(s); for i:=1 to Length(s) do Include(c1,UpCase(s[i]));
  Write('2: '); ReadLn(s); for i:=1 to Length(s) do Include(c2,UpCase(s[i]));
  c2:=c1*c2*['A'..'Z','А'..'Я','Ё'];
  for c:='A' to 'Я' do if c in c2 do Write(c:2); WriteLn;
end.