Дана действительная матрица А(i,j), i,j=1,...,n. Получить матрицу В(i,j)

[alexandra2]

Дана действительная матрица А(i,j), i,j=1,...,n. Получить матрицу В(i,j), i,j=1,...,n, элементы которой равны суме элементов даной матрицы, расположенных в областях определенных индексами i,j (исходная и выходная информация находится в файлах).
То есть чтобы найти например 1-й элемент матрицы B: a11 нужно: a22+a23+a32+a33 и так все элементы).
Очень прошу помогите.

[Aristarh Dark]

Не знаю как у Вас данные хранятся в файлах, но рассчкт примрно такой:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Const
  _n = 5;
  _m = 5;
Type
  TMatrix = array [1.._n,1.._m] of integer;
var
  a,b:TMatrix;
function GetValue(a:TMatrix;i,j:integer):integer;
var
  r,n,m:integer;
begin
  r:=0;
  for n:=1 to i do
    for m:=1 to j do
      r:=r+a[n,m];
  GetValue:=r;
end;
var
  n,m:integer;
begin
  //fill  A
  for n:=1 to _n do
    for m:=1 to _m do
      a[n,m]:=Random(100);
  //fill  B
  for n:=1 to _n do
    for m:=1 to _m do
      b[n,m]:=GetValue(a,n,m);
  //Cool
  ReadLn;
end.

[alexandra2]

Я прошу прощение, но у меня не работает с модулем SysUtils, как мне быть???

[ROMA2PVT]

Ну так он и не будет работать.Это дельфийский код.Убери этот модуль да и всё.