program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type
    tNums = array of array of integer;
    tInput = (ChooseKeyboard, ChooseFile);

var
    size: integer;
    cols: integer;
    rows: integer;
    nums1: tnums;
    nums2: tnums;
    numsSum: tnums;
    isCorrect: boolean;
    input: tInput;
    f: textfile;
    matr1: tNums;
    matr2: tNums;


function ReadMatrFromFile(mass: tNums; path: String): tNums;
begin
    AssignFile(f, path);
    Reset(f);
    ReadLn(f, size);
    SetLength(mass, size, size);
    for rows := 0 to High(mass) do
    begin
        for cols := 0 to High(mass) do
        begin
            Read(f, mass[rows,cols]);
            Write(' ', mass[rows,cols]);
        end;
        Writeln('');
    end;
    Writeln('--------------------');
    Result := mass;
end;


function SumOfMatrs(Firstmass, Secondmass:tNums; size: integer): tNums;
var
    rows, cols: integer;
begin
    matr1 := ReadMatrFromFile(nums1, 'c:\Users\Богданчик\Documents\laba\matrix1.txt');
    matr2 := ReadMatrFromFile(nums2, 'c:\Users\Богданчик\Documents\laba\matrix2.txt');
    Writeln('Полученная сумма матриц: ');
    for rows := 0 to high(Firstmass) do
    begin
        for cols := 0 to high(Firstmass) do
        begin
            Firstmass[rows, cols] := Firstmass[rows, cols] + Secondmass[rows, cols];
            Write(' ', Firstmass[rows, cols]);
        end;
        Writeln;
    end;
    Writeln('--------------------');
    Result := Firstmass;
end;


procedure SaveMatrSumInFile(numsSum: tnums);
begin
    AssignFile(f,'c:\Users\Богданчик\Documents\laba\matrixSum.txt');
    Rewrite(f);
    for rows := 1 to size do
            for cols := 1 to size do
                Write(f,numsSum[rows,cols]);
    Writeln;
    Closefile(f);
    Writeln('Файл сохранен.');
end;


begin
    Writeln('Данная программа складывает две треугольные матрицы, в которых только элементы над главной диагональю отличны от нуля, порядка n.');
    SumOfMatrs(nums1, nums2);
    SaveMatrSumInFile(numsSum);
end;