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.