Cделать программу в Pascal по заданию:"Найти в двумерном массиве сумму массива, сумму элементов по столбцам и среднее арифметическое по строкам"

Uses Crt;

Var A:array[1 ... 20,1 ... 20] of real;

n, m, i, j:integer;

s:real;

Begin

ClrScr; Randomize;

write ('Введите кол-во строк: '); readln (n);

write ('Введите кол-во столбцов: '); readln (m);

For i:=1 to n do

Begin

For j:=1 to m do

Begin

A[i, j]:=random (100) / 10;

write (A[i, j]:4:1);

End;

writeln;

End;

For i:=1 to n do

Begin

s:=0;

For j:=1 to m do

s:=s+A[i, j];

writeln ('Сумма ', i,'-ой строки: ', s:0:1);

End;

For j:=1 to m do

Begin

s:=0;

For i:=1 to n do

s:=s+A[i, j];

writeln ('Сумма ', j,'-ого столбца: ', s:0:1);

End;

For j:=1 to m do

Begin

s:=0;

if j mod 2 = 0 then

Begin

For i:=1 to n do

s:=s+A[i, j];

writeln ('Среднее арифметическое ', j,'-ого столбца: ', s/m:0:1);

End;

End;

readln;

End