Надо составить массив 2х2, что бы самому надо было вводить в него числа. Потом он должен считать первую и вторую строки массива(отдельно) и определить какая из строк больше.

const n=2; var a:array[1..n,1..n]of integer; i,j,s,max,imax:integer; begin     for i:=1 to n do       begin          s:=0;             for j:=1 to n do                 begin                    readln(a[i,j]);                    s:=s+a[i,j];                 end;           if s>max then               begin                    max:=s;                    imax:=i;                end;          end; writeln('i:  ',imax,'   s= ',max); end.