Разработать программу для определения требуемых величин в элементах двумерного массива

Var A:array[1..20,1..20] of integer;
    i,j,n,m,s:integer;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    For i:=1 to n do
     For j:=1 to m do
      s:=s+A[i,j];
    writeln('Сумма всех чисел = ',s);
    readln;
End.

uses crt;
const nmax=15;     //максимальное количество строк / столбцов
var a: array [1..nmax,1..nmax] of integer;
    i,j,n,m: byte; //счетчики и количество строк и столбцов
    imin_chetnoe,jmin_chetnoe,k_otr_nechethyh: byte;
    sum_vseh,sum_otr_nechetnyh: integer;
    
begin
//в цикле с постусловием запрашиваем количество строк и столбцов
repeat
write('Количество строк, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m='); readln(m);
until m in [1..nmax];
// если матрица вводится вручную, то раскомментировать эти строки, а randomize;  и a[i,j]:=random(199)-99; ниже удалить
{for i:=1 to n do
     for j:=1 to m do
         begin
         write('a[',i,',',j,']=');
         readln(a[i,j]);
         end;}
randomize;
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        //заполнение случайными числами
        a[i,j]:=random(199)-99;
        write(a[i,j]:4);             //вывод
        inc(sum_vseh,a[i,j]);        //увеличиваем сумму ввсех на текущее значение
        if not (odd(a[i,j])) then    //если число четно
           begin
           if imin_chetnoe=0 then    //если индекс нулевой - это первое найденное число
              begin
              imin_chetnoe:=i;       //запоминаем его индексы
              jmin_chetnoe:=j;
              end else
                  if a[i,j]<a[imin_chetnoe,jmin_chetnoe] then   //иначе - если не первое, и если оно меньше ранее найденного
                     begin
                     imin_chetnoe:=i;         //тоже запоминаем его индексы
                     jmin_chetnoe:=j;
                     end;
           end;
        //если число нечетно и отрицательно
        if (odd(a[i,j])) and (a[i,j]<0) then
           begin
           inc(k_otr_nechethyh);          //увеличиваем на 1 количество найденных нечетных отрицательных
           inc(sum_otr_nechetnyh,a[i,j]); //увеличиваем сумму на значение найденного
           end;
        end;
    writeln;
    end;
writeln('Сумма всех ',sum_vseh);
writeln('Минимальное четное ',a[imin_chetnoe,jmin_chetnoe]);
writeln('Количество отрицательных нечетных ',k_otr_nechethyh);
writeln('Сумма отрицательных нечетных ',sum_otr_nechetnyh);
readln;
end.