Решение задач на Pascal. Вывод литер, присутствующих в обеих строках

Постановка задачи: Составить подпрограмму, которая вводит две строки s1 и s2 и выводит s3, содержащую литеры присутствующие, по крайней мере, однократно в общих строках. (Например, s1=’молоко’, s2=’кромка’, s3=’ком’).

Код программы

Схема алгоритма