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

const n = 5;vara: 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]);//находим среднее для каждой строки//и заполняем ими массив bfor i:=1 to n do   begin      k:=0;      for j:=1 to n do         k:=k+a[i,j];      b[i] := k/n;   end;//вывод массива bfor i:=1 to n dowriteln(b[i]);end.