Вычислить количество и сумму положительных элементов трехмерного массива

type matr = array[1..10, 1..10, 1..10] of real;

type mas = array of array of array of real;
 
procedure gen(var x: mas; n: char; a, b, c, d: real);
var i, j, k: integer;
begin
  writeln('Array ', n, ':');
  for i := 0 to high(x) do
    for j := 0 to high(x[i]) do
      begin
        if j = 0 then write(i + 1, ': ') else write('   ');
        for k := 0 to high(x[i, j]) do
          begin
            x[i, j, k] := k * cos(a * j + b) + exp(sin(c * i + d));
            write(x[i, j, k]:7:3)
          end;
        writeln
      end
end;
 
procedure sum(var x: mas; var s: real; var c: integer);
var i, j, k: integer;
begin
  s := 0;
  c := 0; //исправлено
  for i := 0 to high(x) do
    for j := 0 to high(x[i]) do
      for k := 0 to high(x[i, j]) do
        if x[i, j, k] > 0
          then begin
            s := s + x[i, j, k];
            inc(c)
          end
end;
 
procedure out_res(n: char; s: real; c: integer);
begin
  writeln('Sum of positive elements of array ', n, ' = ', s:0:3, ', count = ', c);
  write('Press <Enter> to continue');
  readln
end;
 
procedure pass(var p: mas; n: char; x, y, z: integer; a, b, c, d: real; var sn: real; var cn: integer); //исправлено
begin
  setlength(p, x, y, z);
  gen(p, n, a, b, c, d);
  sum(p, sn, cn);
  out_res(n, sn, cn)
end;
 
var a, b, c: mas;
    ca, cb, cc: integer;
    sa, sb, sc: real;
begin
  pass(a, 'A', 5, 6, 4, 1.0, 4.0, 1.0, 0.0, sa, ca);
  pass(b, 'B', 3, 8, 2, 3.2, 4.2, 1.5, 0.0, sb, cb);
  pass(c, 'C', 6, 6, 10, 12.4, 1.0, 1.0, 2.82, sc, cc);
  write('Complete, press <Enter> to exit');
  readln
end.

type mas = array of array of array of real; //объявление типа для 3-мерного динамического массива
           //просто так, без пользовательского типа, массив в процедуру не передать
 
//процедура генерации массива
//формальные параметры: параметр: описание, способ передачи в подпрограмму
//x: целевой массив, по ссылке
//n: имя массива (1 символ), по значению
//a, b, c, d: коэффициенты для функции, по значению
procedure gen(var x: mas; n: char; a, b, c, d: real);
var i, j, k: integer; //локальные переменные, счётчики
begin
  writeln('Array ', n, ':'); //печать заголовка
  for i := 0 to high(x) do //циклы по измерениям массива
    for j := 0 to high(x[i]) do
      begin
        //каждый слой 3-мерного массива - это 2-мерный массив
        //в первой строке печатаем в начале строки номер слоя, в остальных - в начале строки пробелы
        if j = 0 then write(i + 1, ': ') else write('   ');
        for k := 0 to high(x[i, j]) do
          begin
            x[i, j, k] := k * cos(a * j + b) + exp(sin(c * i + d)); //вычисляем элемент
            write(x[i, j, k]:7:3) //печатаем в строчку (без перевода строки)
          end;
        writeln //строчка кончилась, печатаем перевод строки
      end
end;
 
//процедура суммирования массива
//формальные параметры: параметр: описание, способ передачи в подпрограмму
//x: целевой массив, по ссылке
//s: сумма, по ссылке
//c: количество элементов, по ссылке
procedure sum(var x: mas; var s: real; var c: integer);
var i, j, k: integer; //локальные переменные, счётчики
begin
  s := 0; //сумма положительных, пока 0
  c := 0; //счётчик количества положительных, пока 0 //здесь было k := 0; - исправлено
  for i := 0 to high(x) do //циклы по массиву
    for j := 0 to high(x[i]) do
      for k := 0 to high(x[i, j]) do
        if x[i, j, k] > 0 //если очередной элемент положительный,
          then begin //то
            s := s + x[i, j, k]; //прибавляем его к сумме
            inc(c) //а к счётчику прибавляем 1
          end
end;
 
//процедура вывода результата
//формальные параметры: параметр: описание, способ передачи в подпрограмму
//n: имя целевого массива (1 символ), по значению
//s: сумма положительных элементов, по значению
//c: количество положительных элементов, по значению
procedure out_res(n: char; s: real; c: integer);
begin
  //печатаем сумму и количество
  writeln('Sum of positive elements of array ', n, ' = ', s:0:3, ', count = ', c);
  //ожидание нажатия <Enter> (для просмотра результатов) перед обработкой следующего массива
  write('Press <Enter> to continue');
  readln //здесь вводится этот самый <Enter>
end;
 
//процедура обработки массива
//использует процедуры gen, sum, out_res
//формальные параметры: параметр: описание, способ передачи в подпрограмму
//p: целевой массив, по ссылке
//n: имя массива (1 символ), по значению
//x, y, z: размеры массива, по значению
//a, b, c, d: коэффициенты для функции, по значению
//sn: сумма положительных элементов целевого массива, по ссылке
//cn: количество положительных элементов целевого массива, по ссылке
procedure pass(var p: mas; n: char; x, y, z: integer; a, b, c, d: real; var sn: real; var cn: integer);
//!!! в строчке выше была неточность: количество положительных передавалось по значению, исправлено
begin
  setlength(p, x, y, z); //установка размеров массива
  gen(p, n, a, b, c, d); //генерация и печать массива
  sum(p, sn, cn); //нахождение суммы и количества положительных элементов
  out_res(n, sn, cn) //вывод результата
end;
 
//основная программа
var a, b, c: mas; //целевые массивы
    ca, cb, cc: integer; //их суммы положительных элементов
    sa, sb, sc: real; //их количества положительных элементов
begin
  pass(a, 'A', 5, 6, 4, 1.0, 4.0, 1.0, 0.0, sa, ca); //обработка A[5,6,4]
  pass(b, 'B', 3, 8, 2, 3.2, 4.2, 1.5, 0.0, sb, cb); //обработка B[3,8,2]
  pass(c, 'C', 6, 6, 10, 12.4, 1.0, 1.0, 2.82, sc, cc); //обработка С[6,6,10]
  write('Complete, press <Enter> to exit'); //завершающее сообщение, <Enter> для выхода из программы
  readln //здесь вводится этот самый <Enter>
end.

  pass(c, 'C', 6, 6, 10, 12.4, 1.0, 1.0, 2.82, sc, cc); //обработка С[6,6,10]