[BlackMonsta]

Получается код будет такой?

Код:

var
B,C:array[1..50,1..50] of integer;
a:array[1..50] of integer;
i,j,ib,jb,k:integer;
begin
 write('Введите кол-во строк: ');
 readln(ib);
 write('Введите количество элементов в строке:  ');
 readln(jb);
 k:=0;
 for i:=1 to ib do
 begin
  for j:=1 to jb do
  begin
   b[i,j]:= random(0,2);
   write(b[i,j]:3);
  end;
  if b[i,1]=0 then
  begin
   k:=k+1;
   a[k]:=i;
  end;
  writeln;
 end;
 for i:=1 to k do
 begin
  for j:=1 to jb do
  begin
   c[i,j]:= b[a[i],j];
  end;
 end;
 writeln('Матрица C:');
 for i:=1 to k do
 begin
  for j:=1 to jb do
  begin
   write(C[i,j]:3);
  end;
  writeln;
 end;
end.