Надо составить массив 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.