Найдите сумму всех элементов двумерного массива и сумму элементов каждой строки. (паскаль)

Предыдущий
вопрос Следующий
вопрос

program SumArray;

const
N = 3;

type
TArray = array[1..N, 1..N] of integer;

var
arr: TArray;
i, j, sum, rowSum: integer;

begin
sum := 0;

{ Ввод элементов массива }
for i := 1 to N do
for j := 1 to N do
begin
write('Введите элемент arr[', i, ',', j, ']: ');
readln(arr[i, j]);
end;

{ Подсчет суммы всех элементов }
for i := 1 to N do
for j := 1 to N do
sum := sum + arr[i, j];

writeln('Сумма всех элементов массива: ', sum);

{ Подсчет суммы элементов каждой строки }
for i := 1 to N do
begin
rowSum := 0;
for j := 1 to N do
rowSum := rowSum + arr[i, j];
writeln('Сумма элементов строки ', i, ': ', rowSum);
end;

end.