type
  mas=array[,] of integer;
const
  n=5;
  m=6;
var
  i,j,ik,jk,k:integer;
  a:mas;
  b:array[0..n-1]of integer;//вспомогательный массив
begin
setlength(a,n,m);
writeln('Массив:');
for i:=0 to n-1 do
  begin
  for j:=0 to m-1 do
    begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
    end;
  writeln;
  end;
writeln('Вставка строк:');// в массиве b признак наличия в строке 1-го четного
for i:=0 to n-1 do
    if a[i,0] mod 2=0 then b[i]:=1;
for i:=0 to n-1 do k:=k+b[i];
k:=n+k-1;
setlength(a,k+1,m);
ik:=k;
for i:=n-1 downto 0 do
  begin
  if b[i]=1 then
      begin
      for jk:=0 to m-1 do a[ik,jk]:=1;
      ik:=ik-1;
      end;
  for jk:=0 to m-1 do a[ik,jk]:=a[i,jk];
  ik:=ik-1;
  end;
for i:=0 to k do
  begin
  for j:=0 to m-1 do write(a[i,j]:4);
  writeln;
  end;  
end.