как можно иначе записать программу

[Malinka]

эхх, объясните мне глупой, в чём тут ошибка?....ну не понимаю я(((( как можно иначе записать программу, а не "тащить всю матрицу за собой"?
Условия : Дана прямоугольная матрица m*n , причём m>n,
а)в n+1 строку записать среднее арифметическое по столбцам ниже дополнительной диагонали
б) в полученной матрице посчитать сумму элементов прямоугольной части.
Код:
program Project5;

{$APPTYPE CONSOLE}

const n=3;
m=5;
type
indn = 1..n;
indm = 1..m;
mat = array[indn,indm] of real;
var i,j:integer;
a:mat;
Procedure vvod_matrici(var matrix:mat);
var
i,j:integer;
begin
writeln('vvedite massiv: ');
for i:=1 to m do {stroka}
begin
for j:=1 to n do {stolbec}
begin
write(' ');
readln(matrix[i,j]);
end;
end;
end;
Procedure zapis_matrici(var matrix:mat);
var
s,d: real;
i,j,h:integer;
begin
h:=n+1;
for j:=1 to n do
for i:=1 to m do
if i>(n-j+1) then

s:=s + matrix[i,j];
matrix[h,j]:=s/(m-n+j-1);
begin
s:=0;
for j:=1 to n do
begin
for i:=n+1 to m do
s:=s+matrix[h,j];
end;
end;

end;
Procedure vivod_matrici(var matrix:mat);
var s:real;
i,j:integer;
begin
writeln('Otvet');
for i:=1 to m do
begin
for j:=1 to n do
write(matrix[i,j]:5:0,' ');
writeln;
end;
writeln('Summa el. priamougolnoi 4asti - ',s:5:0);
end;
begin
vvod_matrici(a);
zapis_matrici(a);
vivod_matrici(a);
readln;
end.

[Stilet]

"тащить всю матрицу за собой"

В каком смысле?

[puporev]

Условия : Дана прямоугольная матрица m*n , причём m>n,
а)в n+1 строку записать среднее арифметическое по столбцам ниже дополнительной диагонали
б) в полученной матрице посчитать сумму элементов прямоугольной части.

У вас в условии все нормально?
1.Если матрица прямоугольная, то где у нее проходят диагонали?
2.Измеритель по строкам m, почему n+1?
3.Если матрица прямоугольная, произвольных размеров, то где у нее "прямоугольная часть"?