РЕбят проверте пожалуйста

Имеется двухмерный массив целых чисел. Найти номер строки, для которой среднеарифметическое Значение ее элементов максимально.
Задача на двумерный массив правильно ли я ее сделал? ничего мудреного в ней нет?

program program2;
var a:array [1..6,1..5] of integer;
i,j,imax :integer;
sa,max: real;
begin
sa:=0;
imax:=1;
max:=0;
randomize;
for i:=1 to 6 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(10);
write (' ',a[i,j]);
end;
writeln;
end;
for i:=1 to 6 do
begin
sa:=(a[i,1]+a[i,2]+a[i,3]+a[i,4]+a[i,5])/5;
if sa>max then begin max:=sa; imax:=i ;end;
end;
writeln(imax);
end.