Program Lab3_1;

Uses
    System.SysUtils;

Var
    Path: String;
    Sentence: String;
    Order: Integer;

Function GetFilePath(): String;
Var
    Path: String;
    IsCorrect: Boolean;
Begin
    Repeat
        Writeln('Введите абсолютный путь к файлу ');
        Readln(Path);
        IsCorrect := False;
        If FileExists(Path) then
        Begin
                Writeln('Файл успешно открыт');
                IsCorrect := true
        End
        Else
            Writeln('Файл не найден');

    Until IsCorrect;
    Result := Path;
End;

Procedure GetFileToSentence(Var Sentence:String; var Path: String);
Var
    I, J: Integer;
    SenFile: TextFile;
Begin
    AssignFile(SenFile, Path);
    Reset(SenFile);
    Read(SenFile, Sentence);
    CloseFile(SenFile);
End;

Function GetOutput(): String;
Var
    Patho: String;
    IsCorrect: Boolean;
Begin
    IsCorrect := False;
    Repeat
        Writeln('Введите директорию, в которую хотите сохранить исправленное предложение');
        Readln(Patho);
        If DirectoryExists(Patho) then
            IsCorrect := True
        Else
            Writeln('Такой директории не существует. Попробуйте ещё раз');
    Until IsCorrect;
    Result := Patho;
End;

Procedure GetSentenceToFile(Sentence: String);
Var
    I, J: Integer;
    OutputFile: TextFile;
    Directory: String;
Begin
    Directory := GetOutput();
    AssignFile(OutputFile, Directory + '\output.txt');
    Rewrite(OutputFile);
    Write(OutputFile,Sentence);
    Writeln(OutputFile);
    Writeln('Результат сохранён по указанному пути');
    CloseFile(OutputFile);
    Write;
End;


Procedure PrintSentenceBO(Sentence: String);
Begin
    Writeln;
    Writeln('Исходное предложение: ');
    Write(Sentence);
    Writeln;
End;


Function GetSentence(Sentence: String): String;
Var
I:Integer;
Begin
    While Sentence[1]=' ' do
    Begin
        Delete(Sentence, 1, 1);
    End;
    While Pos('  ', Sentence) > 0 do
    Begin
        Delete(Sentence, Pos('  ', Sentence), 1);
    End;
    While Sentence[Length(Sentence)] = ' ' do
    Begin
         Delete(Sentence, Length(Sentence), 1);
    End;
    for I := 0 to Length(Sentence) do
    if ((Sentence[I] in [',', '.', '?', '!', ';', ':']) and (Sentence[I-1]=' ')) then
    Delete(Sentence, I-1, 1);
Result := Sentence;
End;

Procedure PrintSentencePO(Sentence: String);
Begin
    Writeln;
    Writeln('Исправленное предложение:');
    Writeln(Sentence);
    Writeln;
End;

Begin
    Path := GetFilePath();
    GetFileToSentence(Sentence, Path);
    PrintSentenceBO(Sentence);
    Sentence := GetSentence(Sentence);
    PrintSentencePO(Sentence);
    GetSentenceToFile(Sentence);
    Readln;
End.