var
  a : array [1..10] of longint;
  i,j,max,ans : longint;
begin
  for i:=1 to 10 do
    begin
      max:=-maxlongint;
      for j:=1 to 10 do
        begin
          read(a[i]);
          if a[i]>max then max:=a[i];
        end;
      ans:=ans+max;
      writeln;
     end;
  writeln(ans);
end.

И этот массив не квадратный. Такие массивы называют двумерными массивами.