Проверка одинаковых букв в строках

var
  t1, t2: string;
  q1, q2: set of char;
  ch: char;
  i: integer;
 
begin
  q1 := [];
  q2 := [];
  readln(t1);
  readln(t2);
  for i := 1 to length(t1) do
    if t1[i] in ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я'] then
      include(q1, t1[i]);
  for i := 1 to length(t2) do
    if t2[i] in ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я'] then
      include(q2, t2[i]);
  write('Set 1: ');    
  writeln(q1);
  write('Set 2: ');    
  writeln(q2);
  write('Set 3 - буквы, которые встречаются в тексте1 и тексте2): ');    
  writeln(q1 + q2);
end.

uses crt;
const nmax=20;
var m1,m2:array[1..nmax]of string;
    n,i,j,k,p,l:byte;
    mn:set of char;
begin
clrscr;
writeln('Vvedite stroki simvolov, okoncanie vvoda *');
n:=0;
repeat
inc(n);
write('Stroka ',n,': ');
readln(m1[n]);
until (m1[n]='*')or (n=2);
writeln;
writeln('Simvoly > 1 raza:');
p:=0;
for i:=1 to n do {идем по массиву}
  begin
    while pos(' ',m1[i])>0 do {пока в текущей строке есть пробелы}
    delete(m1[i],pos(' ',m1[i]),1);{удаляем из нее пробелы}
    write('stroka ',i,': ');
    k:=0;mn:=[];{счетчик совпадений символа=0, множество символов пустое}
    for j:=1 to length(m1[i])-1 do{идем по очередной строке}
    for l:=j+1 to length(m1[i]) do{по ее "клону" со следующего символа}
    if (m1[i][j]=m1[i][l])and not(m1[i][j] in mn) then{если символ совпал и его еще нет в множестве}
      begin
        k:=1;{фиксируем}
        write(m1[i][j],' ');{выводим в строку}
        mn:=mn+[m1[i][j]];{включаем в множество}
      end;
    if k=0 then write('Takih simvolov net!'){если нет таких, сообщаем}
    else if k=1 then{если есть}
        begin
          inc(p);{увеличиваем счетчик нового массива}
          m2[p]:=m1[i];{заносим в него строку}
        end;
    writeln;
  end;
Writeln('Massiv m2:');{}
for i:=1 to p do
writeln(m2[i]);
readln
end.

var s1, s2: string;
    q1, q2, q: set of char;
    c: char;
    i: integer;
begin
  writeln('Введите первую строку:');
  readln(s1);
  writeln('Введите вторую строку:');
  readln(s2);
  q1 := [];
  for i := 1 to length(s1) do include(q1, s1[i]);
  q2 := [];
  for i := 1 to length(s2) do include(q2, s2[i]);
  q := q1 * q2 * ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'п', 'р'..'я', 'Ё', 'ё'];
  write('Буквы, которые есть в обеих строках');
  if q = []
    then writeln(', не найдены.')
    else begin
      write(': ');
      for c := low(char) to high(char) do if c in q then write(c);
      writeln
    end;
  readln
end.

      for c := low(char) to high(char) do if c in q then write(c);