Program L2_3_D;

uses
  System.SysUtils, System.StrUtils;

Var
    LengthI, LengthJ, JSize, ISize, I, J, MaxR, Res : Integer;
    Matrix : Array of Array of Integer;
    IsCorrect : Boolean;
    Choise : String;


Function name(Arr : Array of Array of Integer) : Integer;

Begin

End;

Procedure FromConsole;

Begin

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

    Length := Size - 1;
    SetLength(A, Size);

    For I := 0 To Length Do
    Begin
        Repeat
            IsCorrect := True;
            Write('Введите ', I+1, ' элемент массива: ');
            Try
                Readln(A[I]);
            Except
                IsCorrect := False;
                Writeln('Неверный тип данных!');
            End;
        Until IsCorrect;
    End;

    MaxR := name(Matrix);
    Writeln('Максимальное количество единиц, идущих подряд: ', MaxR);
End;

Procedure FromFile;

Begin

Var
    TextFile : TextFile;
    line: TStringDynArray;

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

      AssignFile(TextFile, 'C:\Users\Рустамчик\Desktop\ЛАБА 2\Дельфи\4\input.txt');
      Reset(TextFile);
      IsCorrect := True;
      Writeln('Запись размера матрицы...');
      Try
          Readln(TextFile, ISize);
      Except
          IsCorrect := False;
      End;
      If (ISize < 1) Then
      Begin
          IsCorrect := False;
          Writeln('Ошибка! Неверный ввод размера! Измените входные данные в input.txt, затем перезапустите программу.');
      End;
      Writeln('Количество строк: ', ISize);

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

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

      For I := 0 To LengthI Do
      Begin
          Readln(TextFile, line);
          line := SplitString(line, ' ');
          For J := 0 To LengthJ Do
          Try
              Readln(TextFile, line);
          Except
              IsCorrect := False;
              Writeln(' Неверный ввод данных! Исправьте пункт ', I+1, ' ', J+1, ' пункт!');
          End;
      End;

      MaxR := CoutNumber(A);

      Rewrite(TextFile);
      Writeln(TextFile, MaxR);

      Writeln('Данные записаны в файл.');

      CloseFile(TextFile);

  End;
End;


Begin
    Writeln('Данная программа находит наибольшую сумму элементов строк матрицы.');
    Writeln('Выберите, откуда будут вводиться данные:');

    Repeat
    IsCorrect := True;
        Writeln('Напишите ONE, если с консоли. Напишите TWO, если с файла.');
        Try
            Readln(Choise);
        Except
            IsCorrect := False;
            Writeln('Неверный тип данных!');
        End;
        If ((Choise <> 'ONE') And (Choise <> 'TWO')) Then
        Begin
            IsCorrect := False;
            Writeln('Неверный тип данных!');
        End;
    Until IsCorrect;

    If Choise = 'ONE' Then
    FromConsole
    Else
    FromFile;

    Readln;
End.