Используя процедуры и функции из целочисленной матрицы А (n x m) получить вектор, состоящий из номеров минимальных нечетных элементов строк матрицы

type
   t_matrix = array[1..100, 1..100] of integer;
   t_array = array[1..100] of integer;
 
function input_size(name : char) : integer;
   var value : integer;
   begin
      repeat write(name, ' = '); readln(value)
      until (value > 1) and (value <= 100);
      input_size := value
   end;
 
procedure input_matrix(var matrix : t_matrix; n, m : integer);
   var i, j : integer;
   begin
      for i := 1 to n do
         for j := 1 to m do begin
            write('matrix[', i, ', ', j, '] = '); readln(matrix[i, j])
         end
   end;
 
function sum_row(var matrix : t_matrix; i, m : integer) : integer;
   var j, sum : integer;
   begin
      sum := 0;
      for j := 1 to m do
         sum := sum + matrix[i, j];
      sum_row := sum
   end;
 
procedure calculate(var matrix : t_matrix; var result : t_array; n, m : integer; var k : integer);
   var i, j, min, sum : integer;
   begin
      min := sum_row(matrix, 1, m);
      for i := 2 to n do
         if i mod 2 = 1 then begin
            sum := sum_row(matrix, i, m);
            if min > sum then min := sum
         end;
      k := 0;
      for i := 1 to n do
         if i mod 2 = 1 then
            if min = sum_row(matrix, i, m) then begin
               k := k + 1;
               result[k] := i
            end
   end;
 
procedure output_array(var result : t_array; k : integer);
   var i : integer;
   begin
      write('Результат: ');
      for i := 1 to k do
         write(result[i], ' ');
      writeln
   end;
   
var matrix : t_matrix; result : t_array; n, m, k : integer;
begin
   n := input_size('n'); {просим пользователя задать n}
   m := input_size('m'); {просим пользователя задать m}
   input_matrix(matrix, n, m); {просим пользователя заполнить матрицу}
   calculate(matrix, result, n, m, k); {вычисляем результат}
   output_array(result, k) {выводим результирующий массив}
end.

uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;{одномерный массив}
    matr=array[1..nmax] of mas;{матрица=массив строк-массивов}
procedure Matrix(var a:matr;var n,m:byte);{создание матрицы}
var i,j:byte;
begin
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
end;
function Nomer(a:mas;m:byte):byte;{определение номера минимального нечетного в строке}
var imn,i:byte;
begin
imn:=0;{пока 0}
i:=1;
while(i<=m)and(imn=0) do{ищем первое нечетное}
if a[i] mod 2<>0 then imn:=i{если нашли, пока это номер минимального}
else i:=i+1;
if imn>0 then{ищем самый минимальный}
 for i:=1 to m do
 if(a[i] mod 2<>0)and(a[i]<a[imn]) then imn:=i;
Nomer:=imn;
end;
procedure Vektor(a:matr;n,m:byte;var b:mas);{создание вектора по условию}
var i:byte;
begin
writeln('Вектор номеров нечетных минимальных элементов строк:');
for i:=1 to n do
 begin
  b[i]:=Nomer(a[i],m);
  write(b[i],' ');
 end;
end;
 
var a:matr;
    b:mas;
    m,n:byte;
begin
clrscr;
randomize;
Matrix(a,n,m);
Vektor(a,n,m,b);
readln
end.

type
   t_matrix = array[1..100, 1..100] of integer;
   t_array = array[1..100] of integer;
 
{процедура заполнения матрицы}
procedure input_matrix(var matrix : t_matrix; n, m : integer);
   var i, j : integer;
   begin
      for i := 1 to n do
         for j := 1 to m do begin
            write('matrix[', i, ', ', j, '] = '); readln(matrix[i, j])
         end
   end;
 
{функция для вычисления суммы строки матрицы}
function sum_row(var matrix : t_matrix; i, m : integer) : integer;
   var j, sum : integer;
   begin
      sum := 0;
      for j := 1 to m do
         sum := sum + matrix[i, j];
      sum_row := sum
   end;
 
procedure calculate(var matrix : t_matrix; var result : t_array; n, m : integer; var k : integer);
   var i, j, min, sum : integer;
   begin
      {поиск минимальной суммы нечетной строки матрицы}
      min := sum_row(matrix, 1, m);
      for i := 2 to n do
         if i mod 2 = 1 then begin {каждая нечетная строка матрицы}
            sum := sum_row(matrix, i, m);
            if min > sum then min := sum
         end;
      {на основе найденного минимума создается результирующий массив}
      k := 0; {размер результирующего массива}
      for i := 1 to n do
         if i mod 2 = 1 then {каждая нечетная строка матрицы}
            if min = sum_row(matrix, i, m) then begin {если текущая строка минимальна}
               k := k + 1; {увеличение размерности результирующего массива на 1}
               result[k] := i {добавление в результирующий массив номер найденной строки матрицы}
            end
   end;
 
{процедура вывода элементов массива}
procedure output_array(var result : t_array; k : integer);
   var i : integer;
   begin
      write('Результат: ');
      for i := 1 to k do
         write(result[i], ' ');
      writeln
   end;
   
var matrix : t_matrix; result : t_array; n, m, k : integer;
begin
   write('n = '); readln(n); {просим пользователя задать n}
   write('m = '); readln(m); {просим пользователя задать m}
   input_matrix(matrix, n, m); {просим пользователя заполнить матрицу}
   calculate(matrix, result, n, m, k); {вычисляем результат}
   output_array(result, k) {выводим результирующий массив}
end.

type
   t_matrix = array[1..100, 1..100] of integer;
   t_array = array[1..100] of integer;
 
{процедура заполнения матрицы}
procedure input_matrix(var matrix : t_matrix; n, m : integer);
   var i, j : integer;
   begin
      for i := 1 to n do
         for j := 1 to m do begin
            write('matrix[', i, ', ', j, '] = '); readln(matrix[i, j])
         end
   end;
 
{процедура вывода элементов массива}
procedure output_array(var result : t_array; k : integer);
   var i : integer;
   begin
      write('Результат: ');
      for i := 1 to k do
         write(result[i], ' ');
      writeln
   end;
 
procedure calculate(var matrix : t_matrix; n, m : integer);
   var result : t_array; i, j, min : integer;
   begin
      for i := 1 to n do begin
         {поиск минимума}
         min := 1;
         for j := 1 to m do
            if (matrix[i, j] mod 2 = 1) and (matrix[i, min] > matrix[i, j]) then
               min := j;
         {добавление в массив}
         result[i] := min
      end;
      output_array(result, n) {выводим результирующий массив}
   end;
   
var matrix : t_matrix; n, m : integer;
begin
   write('n = '); readln(n); {просим пользователя задать n}
   write('m = '); readln(m); {просим пользователя задать m}
   input_matrix(matrix, n, m); {просим пользователя заполнить матрицу}
   calculate(matrix, n, m); {вычисляем результат}
end.

{поиск минимума}
         min := 1;

procedure calculate(var matrix : t_matrix; n, m : integer);
   var result : t_array; i, j, k, min : integer; f : boolean;
   begin
      k := 0;
      for i := 1 to n do begin
         {поиск минимума}
         f := false;
         for j := 1 to m do
            if matrix[i, j] mod 2 = 1 then
               if f = false then begin
                  f := true;
                  min := j
               end
               else if matrix[i, min] > matrix[i, j] then
                  min := j;
         {добавление в массив}
         if f = true then begin
            k := k + 1;
            result[k] := min
         end
      end;
      output_array(result, k) {выводим результирующий массив}
   end;