Решите, пожалуйста, задачку на Паскале.Отыскать среднее арифметической каждой строки в двумерном

Const n = 5;
var
a: array[1..n, 1..n] of integer;
b: array[1..n] of real;
i, j, k: integer;
begin
//считываем матрицу
for i:=1 to n do
   for j:=1 to n do
      readln(a[i, j]);
//обретаем среднее для каждой строчки
//и наполняем ими массив b
for i:=1 to n do
   begin
      k:=0;
      for j:=1 to n do
         k:=k+a[i,j];
      b[i] := k/n;
   end;
//вывод массива b
for i:=1 to n do
writeln(b[i]);
end.