Найти сумму и произведение всех элементов массива

var
    a: Array [Byte, Byte] Of Real;
    i, j, m, n, iMin, jMin, iMax, jMax: Byte;
    s, p: Real;
begin
    {проверяем корректность ввода размеров матрицы}
    repeat
        Write('Input n=');
        ReadLn(n);
    until (n > 0);
    repeat
        Write('Input m=');
        ReadLn(m);
    until (m > 0);
    s := 0; p := 1;
    iMin := 0; iMax := 0;
    jMin := 0; jMax := 0;
    {вводим данные матрицы и одновременно производим поиски/вычисления}
    for i := 0 to n - 1 do
        for j := 0 to m - 1 do
        begin
            Write('a[', i + 1, '][', j + 1, ']=');
            ReadLn(a[i, j]);
            if (j > i)
            then //если мы находимся выше главной диагонали
            begin
                s := s + a[i, j];
                p := p * a[i, j];
            end;
            if (a[i, j] < a[iMin, jMin])
            then //ищем минимум по всей матрице
            begin
                iMin := i;
                jMin := j;
            end;
            if (a[i, j] > a[iMax, jMax])
            then //ищем максимум по всей матрице
            begin
                iMax := i;
                jMax := j;
            end;
        end;
    WriteLn('s=', s:0:3, '    p=', p:0:3);
    WriteLn('min=', a[iMin, jMin]:0:3, '    max=', a[iMax, jMax]:0:3);
end.