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

Begin
    Set1 := [];
    AssignFile(InputFile, Path);
    Reset(InputFile);
    Readln(InputFile, Line);

    For I := 1 To High(Line) Do
    Begin
        If (Line[I] <> ' ') Then
            Include(Set1, AnsiChar(Line[I]));
    End;

    CloseFile(InputFile);
End;

Function InputFromFile() : TSet;

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

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

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

    InputFromFile := Set1;


End;