в паскале: Составить подпрограмму, определяющую номер строки с максимальной суммой положительных элементов этой строки матрицы

[Freeman000]

Характеристикой строки матрицы назовем сумму положительных элементов этой строки. Составить подпрограмму, определяющую номер строки с максимальной ха-рактеристикой. Для вычисления характеристики использовать подпрограмму-функцию. Найти строки с максимальной характеристикой для матриц mxn
Нужно сделать используя процедурный и функциональный тип данных.Помогите плиз

[Serge_Bliznykov]

Что не получается?
Покажите ваши наработки.
Хотя бы объявление и заполнение матрицы, для начала.

[Вадим Мошев]

Оффтоп: нормальное такое название темы. Отлично.
А вот содержание... мне кажется, или я это же видел где-то?

[Serge_Bliznykov]

Сообщение от Вадим Мошев

Оффтоп: нормальное такое название темы.

спасибо!.
в связи с тем, что название теме давал я, одобрение принимаю на свой счёт!

[Вадим Мошев]

Ну не знал же я...

[Freeman000]

Сообщение от Serge_Bliznykov

Что не получается?
Покажите ваши наработки.
Хотя бы объявление и заполнение матрицы, для начала.

program matrix;
type
matr = array[1..3, 1..4]of real;
procedure creatmass(var d: matr; kol: byte);
var
  i, j: byte;
begin
writeln('введите элементы матрицы');
  for i := 1 to 3 do 
    for j := 1 to kol do
      read(d[i, j]);
  
end;

procedure printmass(d: matr; kol: byte);
var
  i, j: byte;
begin
writeln('полученная матрица');
  for i := 1 to 3 do 
  begin
    for j := 1 to kol do 
      write(d[i, j]:10:2);
    writeln;
    writeln
  end
end;

function fun(d: matr; kol: byte):byte;
var
  i, j, k: byte;
  s, s1: real;
  
begin
s1:=0;
  for i := 1 to 3 do
  begin
    s := 0;
    for j := 1 to kol do 
      if d[i, j] > 0 then s := s + d[i, j];
    if s > s1 then
    begin
      s1 := s;
      k := k + 1
    end;
  end;
  fun:=k;
end;
var 
x,y:matr;
Begin
 creatmass(x, 3);
  writeln;
  printmass(x, 3);
  writeln('строка с наибольшей характеристикой  ',fun(x,3));
  writeln;
  creatmass(y, 4);
  writeln;
  printmass(y, 4);
 writeln('строка с наибольшей характеристикой  ',fun(y,4));
end.

вот без использования процедурно функционального типа, сказали переделать используя процедурно функциональный тип

[Freeman000]

спасибо, все сделал