Repeat
        IsCorrect := True;
        Writeln('Введите путь файла: ');
        Try
            Readln(Path);
            AssignFile(TFile, Path);
            Reset(TFile);
        Except
            IsCorrect := False;
            Writeln('Неверный путь файла!');
        End;

    Until IsCorrect;
    IsCorrect := True;
    Writeln('Запись размера матрицы...');
    Try
        Readln(TFile, ISize);
    Except
        IsCorrect := False;
    End;
    If ((ISize < 1) Or (IsCorrect = False)) Then
    Begin
        Writeln('Ошибка! Неверный ввод размера! Измените входные данные в input.txt, затем перезапустите программу.');
    End
    Else
    Begin
        Writeln('Количество строк: ', ISize);

        IsCorrect := True;
        Try
            Readln(TFile, JSize);
        Except
            IsCorrect := False;
        End;
        If ((JSize < 1) Or (IsCorrect = False)) Then
        Begin
            Writeln('Ошибка! Неверный ввод размера! Измените входные данные в input.txt, затем перезапустите программу.');
        End
        Else
        Begin


            Writeln('Количество столбцов: ', JSize);

            LengthI := Isize - 1;
            LengthJ := Jsize - 1;
            SetLength(Matrix, ISize, JSize);

            Writeln('Введенная матрица: ');

            For I := 0 To LengthI Do
            Begin
                For J := 0 To LengthJ Do
                Begin
                    Try
                        Read(TFile, Matrix[I][J])
                    Except
                        IsCorrect := False;
                        Writeln(' Неверный ввод данных! Исправьте пункт ', I+1, ' ', J+1, ' пункт!');
                    End;
                    Write(Matrix[I][J], ' ');
                End;
                Writeln;
            End;
            If (IsCorrect = False) Then
                Writeln('Неверный ввод данных! Исправьте данные в файле и перезапустите программу.')
            Else
            Begin
                MaxSum := MatrixCout(Matrix, JSize, ISize);
                Append(TFile);
                Writeln(TFile, 'Максимальная сумма модулей элементов строки: ', MaxSum);
                Writeln('Максимальная сумма модулей элементов строки: ', MaxSum);
                Writeln('Данные записаны в файл.');
            End;



        End;
    End;

    CloseFile(TFile);