Используя пользовательскую
процедуру или функцию, напишите подпрограмму для обработки заданной в
основной программе квадратной матрицы размера М×M (где 5<М<10 и
вводится с клавиатуры), согласно нижеприведенному условию: Сформировать и вывести на дисплей новый одномерный массив
MAS состоящий из сумму элементов каждой строки матрицы.

                          if max> max2 then

                                max2: =a

                          else

                                max: =a;

                end;

        writeln(max: 4: 2,' ',max2: 4: 2);

end.

в массив заносим 2 элемента. в цикле вводим остальные элементы. в массиве находим минимальный и, если введенный следующий элемент (b) больше минимального массива, то записываем b в массив на место наименьшего.

в результате в массиве два максимальных эл-та

var

a: array[1..2]of integer;

n,i,min,j,m,b: integer;

begin

        readln(n);

        readln(a[1],a[2]);

        for i: =3 to n do

                begin

                    readln(b); min: =a[1]; m: =1;

                                        for j: =1 to 2 do

                                                if a[j]< min then

                                                begin

                                                      min: =a[j];

                                                      m: =j;

                                                end;

                                        if b> min then

                                              a[m]: =b;

                    end;

                for i: =1 to 2 do

                        writeln(a[i]);

        end.