Дополнить рабочий код: в матрице найти строку с наибольшей суммой элементов

Program massive2 ;
var a:array[1..4,1..5] of integer;
i,j,num:integer;
max,sum: integer;
begin
writeln('Выполнил студент гр. Эпр-52 Мартынова Е. А.');
writeln('Введите матрицу');
for i:= 1 to 4 do
for j:= 1 to 5 do
begin
write('a(',i,',',j,')=');
readln(a[i,j]);
end;
writeln('Матрица');
for i:=1 to 4 do
begin
for j:=1 to 5 do
write(a[i,j]:9,' ');
readln;
end;
max:=0;
num:=0;
for i:=1 to 4 do
begin
sum:=0;
for j:=1 to 5 do
sum:= sum + a[i,j];
if(sum>max) then
max:=sum;
num:=i;
end;
writeln(num,'-ая строка с наибольшей суммой элементов');
readln;
end.

const
    N = 4;
    M = 5;
var
    a: Array[1..N, 1..M] Of Integer;
    i, j, iMax: Byte;
    curr, max: LongInt;
    flag: Boolean;
begin
    WriteLn('Выполнил студент гр. Эпр-52 Мартынова Е. А.');
    WriteLn('Введите матрицу');
    for i := 1 to N do
        for j := 1 to M do
        begin
            Write('a[', i, ',', j, ']=');
            ReadLn(a[i, j]);
        end;
    WriteLn('Матрица:');
    max := 0;
    iMax := 1;
    flag := False;
    for i := 1 to N do
    begin
        curr := 0;
        for j := 1 to M do
        begin
            Write(a[i, j]:10);
            Inc(curr, a[i, j]);
        end;
        WriteLn('  |  ', curr);
        if ((Not flag) Or (curr > max))
        then
        begin
            flag := True;
            max := curr;
            iMax := i;
        end;
    end;
    WriteLn(iMax, '-ая строка с наибольшей суммой элементов');
end.