Задание 2

program Zadanie_2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TLetters = set of Char;

var
  AllSyms, Syms:TLetters; //Мн-во всех символов и мн-во символов из текста
  PrepSyms:TLetters; //Знаки препинания
  Sym:Char; //Введенный символ
  PrepCnt:integer; //Счетчик знаков препинания

//Вывод символов из мн-ва
procedure PrintSymMn(Mn:TLetters);
  var
    Ch:Char;

  begin
    for Ch := 'a' to 'z' do
      if Ch in Mn then
        write(Ch,' ');
  end;


begin
  //Начальные значения переменных
  AllSyms := ['a' .. 'z'];
  PrepSyms := ['(',')',':',',','!','.','-','?',';','"'];
  Syms := [];
  PrepCnt := 0;

  write('Введите текст:');
  //Переборка символов и добавление их в список
  repeat
    read(Sym); //Посимвольное чтение

    if (Sym in AllSyms) and not (Sym in Syms) then
      include(Syms,Sym)
    else if Sym in PrepSyms then
      PrepCnt := PrepCnt + 1;
  until Sym = #13; //Завершение цикла, если последний символ Enter

  //Вывод найденных символов и количества знаков препинания
  write('Символы из текста:');
  PrintSymMn(Syms);
  writeln;

  writeln('Кол-во знаков препинания:',PrepCnt);

  readln;
end.