program laba2_2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
    System.SysUtils;

var
    size: integer;
    cols: integer;
    rows: integer;
    nums1: array of array of integer;
    nums2: array of array of integer;
    numsSum: array of array of integer;
    isCorrect: boolean;
begin
    Writeln('Данная программа ');
end;


procedure inputSize(size: integer);

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


procedure inputMatr();
begin
    SetLength(nums1, size, size);
    for rows := 1 to size - 1 do
        for cols := 0 to rows - 1 do
            nums1[rows, cols] := 0;
    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;
end;


    function outputMatr(): integer;
    begin
        for rows := 0 to size - 1 do
            for j:=0 to n-1 do
                Write(Matrix[i, j]: 3);
    end;
    end.