Определить сумму элементов в тех строках матрицы, которые содержат удвоенные нечетные числа

const n=4;m=3;
type mas=array[1..n,1..m] of integer;
var  i,j,min,min1,s:integer;
     a:mas;
     f:boolean;
function sum(x:mas;ii:integer;var flag:boolean):integer;
var j,s:integer;
begin
    s:=0;
    j:=0;    
    flag:=false;
    repeat inc(j) until (j>m)or((x[ii,j] mod 2 =0)and(odd(x[ii,j] div 2)));
    if j<=m then 
             begin
              for j:=1 to m do s:=s+x[ii,j];
              flag:=true;             
             end;
    sum:=s   
end;
 
procedure sdiag(a:mas;ii,jj:integer;var mi:integer);
var sum:integer;
begin
   sum:=0;
   while (ii>=1)and(jj<=m)do
    begin
     sum:=sum+abs(a[ii,jj]);
     dec(ii);inc(jj)
    end;
   mi:=sum    
end;
 
begin
  randomize;
  for i:=1 to n do
   begin
    for j:= 1 to m do
     begin
      a[i,j]:=-3+random(7);
      write(a[i,j]:4)
     end;
    writeln
   end;
  for i:=1 to n do 
   begin
    s:=sum(a,i,f);
    if f then writeln('sum ',i,' stroki = ',s) 
   end; 
  sdiag(a,1,1,min);
  for i:=1 to n do
   begin
    sdiag(a,i,1,min1);
    if min1<min then min:=min1
   end; 
  for j:=1 to m do
   begin
    sdiag(a,n,j,min1);
    if min1<min then min:=min1
   end; 
  sdiag(a,1,1,min1);
  writeln('min=',min)
end.