Множества - Pascal (97219)

Формулировка задачи:

Помогите.Вывести буквы встречающиеся только в первом из двух множеств.

Решение задачи: «Множества»

Листинг программы

const
  m1=['a'..'z'];
  m2=['а'..'я'];
var
  s:string;
  i:integer;
begin
  readln(s);
  writeln('Буквы принадлежащие второму множеству:');
  for i:=1 to length(s) do
    if s[i] in m2 then
      write(s[i],' ');
  writeln;
  writeln('Буквы принадлежащие первому множеству:');
  for i:=1 to length(s) do
    if s[i] in m1 then
      write(s[i],' ');
  writeln
end.

Объяснение кода листинга программы

В начале кода объявлены две константы: m1 и m2, которые являются множествами символов.
Переменная s типа string используется для хранения строки, которую вводит пользователь.
Переменная i типа integer используется в циклах для подсчета количества символов в строке.
С помощью функции readln() в переменную s вводится строка.
С помощью цикла for выводятся на экран все символы строки s, но только те, которые принадлежат второму множеству (m2).
С помощью цикла for выводятся на экран все символы строки s, но только те, которые принадлежат первому множеству (m1).
В конце программы вызывается функция writeln(), которая выводит символ новой строки, тем самым переходя на новую строку.