Помогите по информатике:)

Имеется двумерный массив целых положительных чисел. Найти номер строки для которой среднее арифметическое значение её элементов максимальна А чо тут сложного?
находим ср. арифметическое первой строки
считаем, что оно максимально, в отдельную переменную записываем номер строки
находим ср. арифм второй строки, сравниваем с предыдущим
если больше, то записываем значение в переменную "макс" и номер строки в "макс_номер"
проходим цикл до конца повторяя предыдущие два пункта.
program test-
const
    ROWS = 5-
    COLS = 5-
var
    source:  array [1 .. ROWS, 1 .. COLS] of integer-
    average: integer-
    max: integer-
    row:  integer-
    i:       integer-
    j:       integer-
function GetAverage(a: array of integer- n: integer): integer-
var
    sum: integer-
    i:   integer-
begin
    sum := 0-
    for i := 0 to n - 1 do
        sum := sum + a[ i ]-
    result := sum div n-
end-
begin
    randomize()-
    for i := 1 to ROWS do
        for j := 1 to COLS do
            source[i,j] := random(COLS * ROWS)-
    max := GetAverage(source[ 1 ], COLS)-
    row := 1-
    for i := 2 to COLS do
    begin
        average := GetAverage(source[ i ], COLS)-
        if max < average then
        begin
            max := average-
            row := i-
        end-
    end-
    writeln('Result: ', row)-
end.