Заменить максимальный элемент суммой всех нечётных элементов матрицы

[Alexar Makken]

Уважаемые форумчане! У меня к вам такая проблема!((
Задача: В текстовом файле А записана целочисленная матрица.
Заменить её максимальный элемент суммой всех нечётных элементов матрицы,
минимальный элемент - суммой всех чётных элементов матрицы. Результат записать в файл В (исходная матрица во вложении)!Решить используя процедуры

Решение:

program Zadanie;
uses crt;
const
     n=3;
     m=3;
type Matrix= array[1..n,1..m] of integer;
var  a: Matrix;
     F1,F2: Text;
     i,j,imx,imn,jmx,jmn: integer;
     buf1,buf2: integer;
     SumCh,SumNch: integer;
function Nech(Ar: Matrix; ArS1,ArS2: integer): integer;
var  i,j: integer;
     S_nch: integer;
begin
     for i:=1 to ArS1 do
     for j:=1 to ArS2 do
     begin
          if (i mod 2 <> 0) then
          S_nch:= S_nch + Ar[i,j];
     end;
     Nech:=S_nch;
end;
function Chet(Ar: Matrix; ArS1,ArS2: integer): integer;
var  i,j: integer;
     S_ch: integer;
begin
     for i:=1 to ArS1 do
     for j:=1 to ArS2 do
     begin
          if (i mod 2 = 0) then
          S_ch:= S_ch + Ar[i,j];
     end;
     Chet:=S_ch;
end;
{Нахождение минимального элемента массива}
procedure GetMin(Ar: Matrix; ArS1,ArS2,imin,jmin: integer);
var  i,j: integer;
     min: integer;
begin
     //if ArS1<1  then  exit;
     Min := Ar[1,1];
     imin:=1;
     jmin:=1;
     for i:=1 to ArS1 do
     for j:=2 to ArS2 do
     if Ar[i,j]<min then
     begin
          Min:=Ar[i,j];
          imin:=i;
          jmin:=j;
     end;
end;
{Нахождение максимального элемента массива}
procedure GetMax(Ar: Matrix; ArS1,ArS2,imax,jmax: integer);
var  i: integer;
     max: integer;
begin
     //if ArS1<1  then  exit;
     Max := Ar[1,1];
     imax:=1;
     jmax:=1;
     for i:=1 to ArS1 do
     for j:=2 to ArS2 do
     if Ar[i,j]<Max then
     begin
          Max:=Ar[i,j];
          imax:=i;
          jmax:=j;
     end;
end;
begin
   clrscr;
   assign(F1,'Matrix1.txt');
   reset(F1);
   assign(F2,'Matrix2.txt');
   rewrite(F2);
   for i:=1 to n do
   begin
        for j:=1 to m do
        begin
             read(F1,a[i,j]);
             write(a[i,j]:4);
        end;
        writeln;
   end;
 
   SumCh:=Chet(a,n,m);
   SumNch:=Nech(a,n,m);
   GetMin(a,n,m,imn,jmn);
   GetMax(a,n,m,imx,jmx);
 
 
   for i:=1 to n do
   for j:=1 to m do
   begin
        buf1:=a[imn,jmn];
        a[imn,jmn]:=SumCh;
        SumCh:=buf1;
        buf2:=a[imx,jmx];
        a[imx,jmx]:=SumCh;
        SumCh:=buf2;
   end;
  for i:=1 to n do
   for j:=1 to m do
   write(F2,a[i,j]:4);
   close(F1);
   close(F2);
{Вывод массива}
 
end.

Вылетает ошибка на 97 строке (ош. 0- выход за границы изменения индекса [1..3]

buf1:=a[imn,jmn];

Не считает индексы минимального элемента, принимает их за равные 0 и выдает ошибку... Помогите разобраться!(((

[GetMax]

Подправил вот. Запись в файл реализуешь сам

const
     n=3;
     m=3;
type Matrix= array[1..n,1..m] of integer;
var  a: Matrix;
     F1,F2: Text;
     i,j,imx,imn,jmx,jmn: integer;
     buf1,buf2: integer;
     SumCh,SumNch: integer;
     Minimum:Integer;
     Maximum:Integer;
function Nech(Ar: Matrix; ArS1,ArS2: integer): integer;
var  i,j: integer;
     S_nch: integer;
begin
     for i:=1 to ArS1 do
     for j:=1 to ArS2 do
     begin
          if (i mod 2 <> 0) then
          S_nch:= S_nch + Ar[i,j];
     end;
     Nech:=S_nch;
end;
function Chet(Ar: Matrix; ArS1,ArS2: integer): integer;
var  i,j: integer;
     S_ch: integer;
begin
     for i:=1 to ArS1 do
     for j:=1 to ArS2 do
     begin
          if (i mod 2 = 0) then
          S_ch:= S_ch + Ar[i,j];
     end;
     Chet:=S_ch;
end;
{Нахождение минимального элемента массива}
procedure GetMin(Ar: Matrix;Var Min:Integer); //для передачи значения из подпрограммы в основную программу используют параметр-переменную(переменная Min)
var  i,j,imin,jmin: integer;
begin
     //if ArS1<1  then  exit;
     Min := Ar[1,1];
     imin:=1;
     jmin:=1;
     for i:=1 to N do
     Begin
     for j:=2 to M do
     if Ar[i,j]<min then
     begin
          Min:=Ar[i,j];
          imin:=i;   //в принципе номера строк и столбцов можно и не запоминать. Они нигде не используются
          jmin:=j;
     end;
     End;
end;
{Нахождение максимального элемента массива}
procedure GetMax(Ar: Matrix;Var Max:Integer); //здесь используем параметр-переменную Max
var  i,j,imax,jmax: integer;
begin
     //if ArS1<1  then  exit;
     Max := Ar[1,1];
     imax:=1;
     jmax:=1;
     for i:=1 to n do
     Begin
     for j:=2 to m do
     if Ar[i,j]>Max then
     begin
          Max:=Ar[i,j];
          imax:=i;
          jmax:=j;
     end;
     End;
end;
begin
   Randomize;
   for i:=1 to n do
   begin
        for j:=1 to m do
        begin
             A[i,j]:=-20+Random(50);
             write(a[i,j]:4);
        end;
        writeln;
   end;

   SumCh:=Chet(a,n,m);
   SumNch:=Nech(a,n,m);
   GetMin(a,Minimum);
   GetMax(a,Maximum);
   //производим замену
   for i:=1 to n do
   Begin
     for j:=1 to m do
     Begin
       If A[i,j] = Minimum then A[i,j]:=Sumch;
       If A[i,j] = Maximum then A[i,j]:=SumNch
     End;
   end;
   Writeln;
   Writeln;
   //выводим итоговую матрицу
   For i:=1 to n do
   Begin
     For j:=1 to m do
     Write(a[i,j]:4);
     Writeln;
   End;
   Readln
End.

[Alexar Makken]

Огромнейше благодарен!
Башка не варила вчера, тоже думал передать максимальный и минимальный, но потом чето их индексы в параметрах сделал
Еще раз спасибо!