2_3

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
    System.SysUtils;

type
    tNums = array of array of integer;

var
    size: integer;
    cols: integer;
    rows: integer;
    nums1: tnums;
    nums2: tnums;
    numsSum: tnums;
    isCorrect: boolean;
    f: textfile;


procedure InputSize(size: integer);

const
    minSize = 2;
    maxSize = 20;
begin
    isCorrect := false;
    repeat
        Writeln('Введите размерность матрицы от ', minSize, ' до ', maxSize,':');
        try
            Readln(size);
            if (size > minSize - 1) and (size < maxSize + 1) then
                    isCorrect := true
            else
                Writeln('Ошибка ввода. Введено число, удовлетворяющее условию.');
        except
            Writeln('Ошибка ввода. Введено число, удовлетворяющее условию.');
        end;
    until isCorrect;
end;


procedure InputMatr1(nums1: Tnums);
begin
    InputSize(size);
    SetLength(nums1, size, size);
    for rows := 0 to size - 1 do
        for cols := rows to size - 1 do
            begin
                Writeln('Введите элемент матрицы [', rows + 1, ', ', cols + 1, ']: ');
                Read(nums1[rows, cols]);
            end;
            for rows := 1 to size - 1 do
                for cols := 0 to rows - 1 do
                    nums1[rows, cols] := 0;
end;


procedure InputMatr2(nums2: Tnums);
begin
    SetLength(nums2, size, size);

    for rows := 0 to size - 1 do
        begin
            for cols := rows to size - 1 do
                begin
                    Writeln('Введите элемент матрицы [', rows + 1, ', ', cols + 1, ']: ');
                    Read(nums2[rows, cols]);
                end;
        end;
    for rows := 1 to size - 1 do
        for cols := 0 to rows - 1 do
            nums2[rows, cols] := 0;
end;


procedure ReadMatr1FromFile(nums1: tNums);
begin
    AssignFile(f,'fail.txt');
    Reset(f);
    Read(f,size);
    for rows := 1 to size do
        begin
            for cols := 1 to size do
                begin
                    Read(f,nums1[rows,cols]);
                    Write(nums1[rows,cols]:4);
                end;
            Writeln;
        end;
    Close(f);
end;


procedure ReadMatr2FromFile(nums2: tNums);
begin
    AssignFile(f,'fail.txt');
    Reset(f);
    Read(f,size);
    for rows := 1 to size do
        begin
            for cols := 1 to size do
                begin
                    Read(f,nums2[rows,cols]);
                    Write(nums2[rows,cols]:4);
                end;
            Writeln;
        end;
    Close(f);
end;


procedure SumOfMatrs(nums1: tNums; nums2: tNums; numsSum: tNums);
begin
    for rows := 0 to size - 1 do
        for cols := 0 to size - 1 do
            numsSum[rows, cols] := nums1[rows, cols] + nums2[rows, cols];
end;


procedure OutputMatr(numsSum: tNums);
begin
    Writeln(size);
    for rows := 0 to size - 1 do
        for cols := 0 to size - 1 do
            Writeln(numsSum[rows, cols]:3,' ');
    Writeln;
end;

procedure SaveMatrSumInFile(numsSum: tnums);

var
rows, cols:integer;
f:textfile;

begin
    AssignFile(f,'Файл.txt');
    Rewrite(f);
    for rows := 0 to size - 1 do
        begin
            for cols := 0 to size - 1 do
                begin
                    Write(f,numsSum[rows,cols]:6);
                end;
            Writeln(f);
        end;
    Closefile(f);
end;


procedure Main();
var
   Symbol: Char;
   IsCorrect: Boolean;
begin
    Writeln('Данная программа ...');
    repeat
      WriteLn('Если желаете заполнять массив с клавиатуры, введите K, ' + #10#13 + 'если желаете считать массив из файла, введите F:');
      ReadLn(Symbol);
      Symbol := UpCase(Symbol);
      if (Symbol <> 'K') and (Symbol <> 'F') then
          Writeln('Внимание, при вводе произошла ошибка. Пожалуйста, повторите попытку.');
   until Symbol in ['K', 'F'];
   if Symbol = 'K' then
       begin
           InputMatr1(nums1);
           InputMatr2(nums2);
       end;
   if Symbol = 'F' then
       begin
           ReadMatr1FromFile(nums1);
           ReadMatr2FromFile(nums2);
       end;
    SumOfMatrs(nums1, nums2, numsSum);
    OutputMatr(numsSum);
    SaveMatrSumInFile(numsSum);
end;

begin
    Main();
    Readln;
end.