Напишите программу, которая ищет сколько раз символьная последовательность встречается в

Входные данные

На вход программки подаются две символьные строчки, любая строчка заканчивается эмблемой "конец строки".

Выходные данные

Программка обязана вывести все знаки, которые встречаются в обеих строчках, в порядке возрастания их ASCII-кодов. Если таких знаков нет, нужно вывести слово 'NO'.

Образцы

входные данные

qwerty

asdqwhy

выходные данные

qwy

входные данные

qwerty

12345

выходные данные

NO

Pascal ABC 1.8 Программка должна быть составлена по теме огромного количества

var set1: Set of Char;

   set2: Set of Char;

   s1, s2: string;

   i: integer;

   done: boolean;

   c: char;

begin

set1 := [];

set2 := [];

readln(s1);

readln(s2);

for i := 1 to length(s1) do

 include(set1, s1[i]);

for i := 1 to length(s2) do

 include(set2, s2[i]);

done := False;

for c := 0 to 255 do

 if (c in set1) and (c in set2) then

 begin

   done := True;

   write(c);

 end;

if not done then

 write('NO');

writeln;

end