Поиск max элемента в матрице

{1) Поиск максимального и минимального элемента в матрице}
var
    i:integer;
    max,min:integer;
    TheArr:array [100]of integer;
begin
    write('Введите длину массива:');readln(N);
    for i:=1 to N do
    begin
        readln(TheArr[i]);
    end;
    min:=TheArr[1];
    max:=TheArr[1];
    for i:=2 to N do
    begin
        If(max<TheArr[i])then max:=TheArr[i];
        If(min>TheArr[i])then min:=TheArr[i];
    end;
    writeln('max= ',max);
    writeln('min= ',min);
end.

{2) Поиск максимальной суммы элементов в строке}
var
    i:integer;
    max:integer;
    TheArr:array [100]of integer;
begin
    write('Введите длину массива:');readln(N);
    for i:=1 to N do
    begin
        readln(TheArr[i]);
    end;
    max:=0;
    for i:=1 to N do
    begin
        max:=max+TheArr[i];
    end;
    writeln('Summa= ',max);
end.