program Lab3_2;

uses
    System.SysUtils, System.StrUtils;

type
    CharSet = Set of AnsiChar;
    CharArray = Array of AnsiChar;
    InputType = (FromConsole, FromFile);

function GetInputType(): InputType;
var
    Ret: InputType;
    Input: String;
    IsCorrect: Boolean;
begin
    IsCorrect := False;
    repeat
        Writeln('Выберите способ ввода предложения файл/консоль (ф/к)');
        Readln(Input);
        if (Input = 'ф') or (Input = 'Ф') or (Input = 'Файл') or (Input = 'файл')
        then
        begin
            Ret := InputType.FromFile;
            IsCorrect := True;
        end
        else if (Input = 'к') or (Input = 'К') or (Input = 'Консоль') or
          (Input = 'консоль') then
        begin
            Ret := InputType.FromConsole;
            IsCorrect := True;
        end;
    until IsCorrect;
    GetInputType := Ret;
end;

function GetInputFilePath(): String;
var
    Path: String;
    IsCorrect: Boolean;
begin
    IsCorrect := False;
    repeat
        Writeln('Введите абсолютный путь к файлу ');
        Readln(Path);
        if FileExists(Path) then
            IsCorrect := True
        else
            Writeln('Файл не найден');

    until IsCorrect;
    GetInputFilePath := Path;
end;

function GetInputTextFromConsole(): String;
var
    Ret: String;
begin
    Writeln('Введите исходное предложение');
    Readln(Ret);
    GetInputTextFromConsole := Ret;
end;

function GetInputTextFromFile(): String;
var
    Ret, Temp, FilePath: String;
    InputFile: TextFile;
begin
    FilePath := GetInputFilePath();
    AssignFile(InputFile, FilePath);
    Reset(InputFile);
    while not Eof(InputFile) do
    begin
        Readln(InputFile, Temp);
        Ret := Ret + Temp;
    end;
    CloseFile(InputFile);
    GetInputTextFromFile := Ret;
end;

function GetInputText(): String;
var
    Ret: String;
    SelectedInputType: InputType;
begin
    SelectedInputType := GetInputType();
    if (SelectedInputType = InputType.FromConsole) then
        Ret := GetInputTextFromConsole()
    else if (SelectedInputType = InputType.FromFile) then
        Ret := GetInputTextFromFile();
    GetInputText := Ret;
end;

function GetVowels(InputText: AnsiString): CharSet;
var
    Vowels, Separators, Set1, Set2: CharSet;
    I: Integer;
begin
    Vowels := ['a', 'e', 'i', 'o', 'u', 'y'];
    Separators := [' ','.',',','!','?'];
    Set1 := [];
    Set2 := [];
    InputText := LowerCase(InputText);
    for I := 1 to Length(InputText) + 1 do
    begin
        if InputText[I] in Vowels then
            Include(Set1, InputText[I]);
        if InputText[I] in Set2 then
            Exclude(Vowels, InputText[I]);
        if InputText[I] in Separators then
            Set2 := Set1;
    end;
    GetVowels := Vowels * Set1;
end;

function GetOutputDirectory(): String;
var
    Ret: String;
    IsCorrect: Boolean;
begin
    IsCorrect := False;
    repeat
        Writeln('Введите директорию, в которую хотите сохранить вывод программы');
        Readln(Ret);
        if DirectoryExists(Ret) then
            IsCorrect := True
        else
            Writeln('Такой директории не существует.Попробуйте ещё раз');
    until IsCorrect;
    GetOutputDirectory := Ret;
end;

procedure PrintOutputToFile(ToPrint: CharSet);
var
    OutputFile: TextFile;
    I: Integer;
    Directory: String;
    Vowels: CharArray;
begin
    Vowels := ['a', 'e', 'i', 'o', 'u', 'y'];
    Directory := GetOutputDirectory();
    AssignFile(OutputFile, Directory + '\output.txt');
    Rewrite(OutputFile);
    Writeln(OutputFile, 'Гласные буквы, которые входят только в одно слово: ');
    for I := 0 to High(Vowels) do
        if Vowels[I] in ToPrint then
            Write(OutputFile, Vowels[I] + '  ');
    Writeln('Файл сохранён по указанному пути');
    CloseFile(OutputFile);
end;

procedure PrintOutputToConsole(ToPrint: CharSet);
var
    I: Integer;
    Vowels: CharArray;
begin
    Vowels := ['a', 'e', 'i', 'o', 'u', 'y'];
    Writeln('Глассные буквы, которые входят только в одно слово: ');
    for I := 0 to High(Vowels) do
        if Vowels[I] in ToPrint then
            Write(Vowels[I] + '  ');
    Writeln;
end;

Var
    InputString: AnsiString;
    Output: CharSet;

begin
    InputString := GetInputText();
    Output := GetVowels(InputString);
    PrintOutputToConsole(Output);
    PrintOutputToFile(Output);
    Readln;

end.