Программа определения номера строки, содержащей не менее 2-х чётных чисел

const
  m = 8;
  n = 5;
 
var
  x: array[1..m, 1..n] of integer;
  t,k, i, j: integer;
 
begin
  randomize;
  writeln('Array: ');
  for i := 1 to m do
  begin
    for j := 1 to n  do
    begin
      x[i, j] := random(21) + 20;
      write(x[i, j]:4);
    end;
    writeln;
  end;
 
  k:=0;
 
  write('Введите номер строки',t);
  readln(t);
  for j:=1 to n do 
  begin
   
   if (x[1,j] mod 2) = 0 then
     k:=k+1 
     else k:=0 ;
     
   
  
     if (x[1,j] mod 2) = 1 then
       t:=1; 
    
      writeln ('строка №1 содержит не менее 2 четных чисел...');
      writeln;
  end;  
  
end.

const n=8;
     
type mas=array[1..n] of integer;
     matr=array[1..n] of mas;
var a:matr;
    i,j:integer;
    fl:boolean;
 function ch2_0(x:mas):boolean;
 var k,j:integer;
     f:boolean;
 begin
     f:=true;
     j:=1;
     k:=0;
     while f and(j<= n) do
      begin
       if not(odd(x[j])) then inc(k);
       if x[j]=0 then f:=false;
       inc(j)
      end;
    ch2_0:=f and (k=2)
 end;
begin
writeln('A:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=20+random(21);
    write(a[i,j]:4)
   end;
  writeln
 end;
fl:=false;
for i:=1 to n do if ch2_0(a[i]) then begin write(i,' ');fl:=true end;
if not fl then writeln('---')
end.

const n=8;
      m=5;
type mas=array[1..n] of integer;
     matr=array[1..n] of mas;
var a:matr;
    i,j:integer;
    fl:boolean;
 function ch2_0(x:mas):boolean;
 var k,j:integer;
     f:boolean;
 begin
     f:=true;
     j:=1;
     k:=0;
     while f and(j<= m) do
      begin
       if not(odd(x[j])) then inc(k);
       if x[j]=0 then f:=false;
       inc(j)
      end;
    ch2_0:=f and (k>=2)
 end;
begin
writeln('A:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=20+random(21);
    write(a[i,j]:4)
   end;
  writeln
 end;
fl:=false;
for i:=1 to n do if ch2_0(a[i]) then begin write(i,' ');fl:=true end;
if not fl then writeln('---')
end.

const m=8; n=5; W=4;
var
  i, j, k: Integer;
  a: array [0..m-1,0..n-1] of Integer;
begin
  Randomize;
  WriteLn('A =');
  for i:=0 to m-1 do begin
    k:=0;
    for j:=0 to n-1 do begin
      a[i,j]:=20+Random(21); Write(a[i,j]:W);
      if not Odd(a[i,j]) then Inc(k);
    end;
    if k>=2 then Write(' | да');
    WriteLn;
  end;
end.