Function InputElementFromConsole() : AnsiChar;
Var
    Symbol : AnsiChar;
    IsCorrect : Boolean;

Begin
    Repeat
        IsCorrect := True;
        Writeln('Введите элемент множества:');
        Try
            Readln(Symbol);
        Except
            IsCorrect := False;
            Writeln('Неверный ввод данных!');
        End;
    Until IsCorrect;

    InputElementFromConsole := Symbol;
End;

Function CheckingForCorrect(Line : String) : AnsiChar;

Var
    Symbol : AnsiChar;

Begin
    If ((Length(Line) <> 1) Or ((Length(Line) = 1) And (Line = ' '))) Then
    Begin
        Writeln('Ошибка! Элемент должен быть единичным символом и не пробелом! Введите элемент с клавиатуры');
        Symbol := InputElementFromConsole();
    End
    Else
        Symbol := AnsiChar(Line[1]);

    CheckingForCorrect := Symbol;
End;

Function ReadingSet(Path : String; Set1 : TSet) : TSet;
Var
    InputFile : TextFile;
    Line : String;
    Symbol : AnsiChar;

Begin
    AssignFile(InputFile, Path);
    Reset(InputFile);
    While (Not EoF(InputFile)) Do
    Begin
        Readln(InputFile, Line);
        Symbol := CheckingForCorrect(Line);
        Include(Set1, Symbol);
    End;
    CloseFile(InputFile);
End;

Function InputFromFile() : TSet;

Var
    InputFile : TextFile;
    Set1 : TSet;
    Path : String;
    Line : String;
    Symbol : AnsiChar;
    IsCorrect : Boolean;

Begin
    Set1 := [];
    Writeln('При вводе из файла учтите, что элементы множества должны быть одиночными символами и записаны в файле на каждой новой строке.');

    Path := PathChoice();
    Set1 := ReadingSet(Path, Set1);
    OutputSet(Set1);

    InputFromFile := Set1;


End;