Удалить строку массива, в которой нет ни одного четного элемента

type
mass=array [1..5,1..5] of integer;
var a:mass; i,j,k,n,l,d,b:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
 
read (a[i,j]);
end;
 
end;
writeln;
k:=0;
d:=0;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if a[i,j]mod 2 <>0 then k:=k+1;
if k=5 then 
begin n:=i; d:=d+1;
for l:=n to 5-d do 
for b:=1 to 5 do
      a[l,b]:=a[l+1,b];
end;
if n=5 then begin
for l:=1 to 4 do begin
for b:=1 to 5 do 
write (a[l,b],' ');
writeln;
end;
end;
 
end;
k:=0;
end;
for i:=1 to 5 do begin
for j:=1 to 5 do 
write (a[i,j],' ');
writeln;
end;
end.

type
mass=array [1..5,1..5] of integer;
var a:mass; i,j,k,n,l,d,b:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
 
read (a[i,j]);
end;
 
end;
writeln;
k:=0;
d:=0;
 
for i:=1 to 5 do begin
 
for j:=1 to 5 do begin
if a[i,j]mod 2 <>0 then k:=k+1;
if k=5 then 
begin n:=i; d:=d+1;
for l:=n to 5-d do 
for b:=1 to 5 do
      a[l,b]:=a[l+1,b];
end;
if n=5 then begin
for l:=1 to 4 do begin
for b:=1 to 5 do 
write (a[l,b],' ');
writeln;
end;
 
end;
 
end;
k:=0;
end;
for i:=1 to 5-d do begin
for j:=1 to 5 do 
write (a[i,j],' ');
writeln;
end;
write(d)
end.

type
  v = array[1 .. 5] of integer;
  mx = array[1 .. 5] of v;
  
var 
  a : mx;
  i, j, curr : integer;
  count : integer;
begin
  for i := 1 to 5 do
    for j := 1 to 5 do a[i, j] := Random(10); { Readln(a[i, j]; )}
 
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      write(a[i, j]:3);
    writeln;
  end;
  
  curr := 1;
  for i := 1 to 5 do
  begin
    count := 0;
    for j := 1 to 5 do
      if a[i, j] mod 2 = 0 then inc(count);
 
    if count <> 0 then
    begin
      if curr <> i then a[curr] := a[i];
      inc(curr);
    end;
  end;
  
  writeln('после:');  
 
  for i := 1 to curr - 1 do
  begin
    for j := 1 to 5 do
      write(a[i, j]:3);
    writeln;
  end;
end.