Процедуры в Delphi

[Закиров Николай]

Найти среднее арифметическое отрицательных элементов каждой строки матрицы Т(n,k), n<=8, k<=11. Результат заполнить в массив R. Если в строке нет отрицательных элементов, то в массиве R не будет элемента, соответствующего этой строке. В сформированном массиве поменять местами максимальный элемент с последним.
Использовать подпрограммы для ввода исходных данных, вывода результатов и алгоритмов преобразования данных.


Сделал программу, но она вылетает. В чем проблема?

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
 T = array of array of integer;
 R = array of real;
var n, k:integer;
a: T;
b: R;
//--------------------------------------
procedure vvod(n, k: integer; var a: T);
var i, j: integer;
begin
  for i := 1 to n do
  for j := 1 to k do
    begin
      readln(a[i,j]);
    end;
end;
//--------------------------------------
procedure zadacha(k: integer; a:T; var b: R);
var
sum, count, i, j: integer;
begin
  for i:=1 to n do begin
    sum:=0;
    count:=0;
    for j:=1 to k do begin
     if a[i,j]<0 then begin
      sum:=sum+a[i,j];
      count:=count+1;
      end;
     end;
   if count<>0 then b[i]:=(sum/count);
   if count=0 then b[i]:=0;
  end;
  for i:=1 to k do
     Write(' ', b[i]);
end;
//---------------------------------------
procedure zadacha2(k:integer; b:R);
var temp: real; bmax, i:integer;
begin
  bmax:=1;
  for i:=2 to k do begin
    if b[i]>b[bmax] then bmax:=i;
    end;
  temp:=b[n];
  b[n]:=b[bmax];
  b[bmax]:=temp;
  for i:=1 to n do
    Write(' ', b[i]);
end;
//---------------------------------------
begin
  Writeln('Введите количество строк');
  Readln(n);
  Writeln('Введите количество столбцов');
  Readln(k);
  Writeln('Введите матрицу ',n,'x',k);
  vvod(n, k, a);
  zadacha(k, a, b);
  zadacha2(k, b);
  Readln;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Сообщение от Закиров Николай

T = array of array of integer;

это называется "Динамический массив"
прежде чем обращаться к элементам такого массива, нужно ОБЯЗАТЕЛЬНО выделить память под элементы (через SetLength).

почитайте, например, здесь

Сообщение от Закиров Николай

for i := 1 to n do for j := 1 to k do

да, и индексируются элементы в таких массивах от нуля до n-1 ( до k-1)