делфи,задача

[angNov]

из динамического массива A (n*m) сформировать одномерный массив В в котором будут элементы кратные 2

[Serge_Bliznykov]

И что не получается?

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
const n=10;
      m=8;
var a:array[1..n,1..m] of integer;
    b:array of integer;
    i,j,c:integer;
begin
   Randomize;
   Label1.Caption:='';
   For i:=1 to n do
   begin
      For j:=1 to m do
      begin
         a[i,j]:=Random(20);
         Label1.Caption:=Label1.Caption+'  '+IntToStr(a[i,j]);
      end;
      Label1.Caption:=Label1.Caption+#13#10;
   end;
   c:=0;
   For i:=1 to n do
      For j:=1 to m do
         If a[i,j] mod 2=0 then
         begin
            c:=c+1;
            SetLength(b,c);
            b[c-1]:=a[i,j];
         end;
   Label2.Caption:='';
   For i:=0 to c-1 do
       Label2.Caption:=Label2.Caption+'  '+IntToStr(b[i]);
end;