Delphi 7.0 Сумма эл-тов матрицы

[Nerotim]

Задача
Составить функцию вычисляющую сумму тех эл-тов матрицы "a", сумма номеров строк и столбцов, которой равна K, заданному в основном массиве.

Происходит зацикливание

 program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, math;
 type A=array [1..20,1..10] of integer;


  Function sum(a:A; k:integer; var ni,nj: integer):integer;
  var i,j,sum:integer;

begin

        if i+j=k then
        sum:=sum+a[i,j];


end;
//=================================

     Procedure vvod (var a:A; ni,nj:integer);
     var i,j,k:integer;
     Begin for i := 1 to ni do
             begin
               for j := 1 to nj do
                 read (a[i,j]);
            readln;

             end;
             writeln('vvedite K');
             readln(k);
     End;


     //=============================
     Procedure vivod( a:A; sum,ni,nj:integer   );
     var i,j:integer;
     Begin
       writeln('matrica');
         for i := 1 to ni do
             begin
               for j := 1 to nj do
               writeln (a[i,j]);
               writeln;
             end;
             writeln('summa=', sum);
             readln;
     End;
     //-------------------------------------
     var a1:A; m,n,S,I: integer;
     begin
     writeln ('razmer');
     readln(m,n);
     writeln  ('vvedite matr');
     vvod(a1,m,n);
     S:=sum(a1,m,n,S);
     vivod (a1, m,n,S);
     readln;
     readln;








  try
    { TODO -oUser -cConsole Main : Insert code here }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

[Serge_Bliznykov]

во-первых, ЗАЧЕМ объявлять переменную с таким же именем, как и имя функции?!! (я вообще потрясён, что Delphi это позволяет!)

во-вторых, измените код так:

 Function sum(a:A; k:integer; var ni,nj: integer):integer;
  var i,j, sumLoc :integer;

begin
     sumLoc := 0;
     for i := 1 to ni do
         for j := 1 to nj do
            if (i+j)=k then
                sumLoc :=  sumLoc + a[i,j];
     sum := sumLoc; {или, что тоже самое, можно 
                                написать и так:
                                Result := SumLoc;}
end;

   Procedure vvod (var a:A; var K : integer; ni,nj:integer);
     var i,j:integer;
     Begin for i := 1 to ni do
             begin
               for j := 1 to nj do
                 read (a[i,j]);
            readln;

             end;
             writeln('vvedite K');
             readln(k);
     End;




Procedure vivod( a:A; sum,ni,nj:integer   ); - вроде нормально. только обратите внимание на порядок параметров!

....
     var a1:A; m,n,S, KK: integer;
     begin
     writeln ('razmer');
     readln(m,n);
     writeln  ('vvedite matr');
     vvod(a1, KK, m,n);
     S:=sum(a1, KK, m,n);
     vivod (a1, S, m,n);
     readln;
     readln;
end.

в данном случае ваш try .. except вообще ни при делах! Или используйте его корректно или выбросите из кода напрочь!

[Stilet]

я вообще потрясён, что Delphi это позволяет!

В данном случае позволяет, потому что для результата используется директива Result (сам же сказал )