задача на массив

[revolteck]

Дан целочисленный массив X [1..n, 1..m] (n и m вводится пользователем). Найти номер строки, для которой среднеарифметическое значение ее элементов наименьшее. Результат запишите в файл.
не могу подсчитать и вывести номер строки=(
прошу помощи, буду очень благодарен

[IT-man]

in:=1;sm:=0;s:=0;
for i:=1 to m do
s:=s+x[in,i];
sm:=s/m; 
for i:=2 to n do begin
s:=0;
for j:=1 to m do
s:=s+x[i,j];
s:=s/m;
if s<sm then begin sm:=s;in:=i;end;
end;
{in-номер строки sm-минимальное сред арифм }

[revolteck]

благодарю=)