Пусть дан текст. Перечислите буквы данного текста, которые имеются в слове, заданном пользователем — Pascal(Паскаль)

type
  mnoj = set of char;

var
  s, s1: string;
  k: char;
  m, m1: mnoj;
  j, i: integer;

begin
  readln(s1);
  readln(s);
  for i := 1 to length(s1) do
    m := m + [s1[i]];
  for j := 1 to length(s) do
    if s[j] in m then
      m1 := m1 + [s[j]];
  for k := 'a' to 'z' do
    if k in m1 then
      write(k, ' ');
  for k := 'A' to 'Z' do
    if k in m1 then
      write(k, ' ');
  for k := 'А' to 'Я' do
    if k in m1 then
      write(k, ' ');
  for k := 'а' to 'я' do
    if k in m1 then
      write(k, ' ');

end.

program Dekio;

var
  st: string;
  i: integer;
  ch: set of char;
  k: char;

begin
  writeln('Введите строку');
  readln(st);
  for i := 1 to length(st) do
    if not(st[i] in ch) and (st[i] in ['а' .. 'я', 'А' .. 'Я', 'ё', 'Ё',
      'a' .. 'z', 'A' .. 'z']) then
      include(ch, st[i]);
  writeln('Результат');
  for k := #1 to #255 do
    if k in ch then
      write(k, ' ');

end.