Несколько масивов

[kuy]

Здравствуйте, помогите исправить код:
Суть программы заключается в том чтобы массив В присвоил все парные элементы массива А(и изменил розмер соответственно). У меня проблема в том что розмер меняется, но там где в массиве А были непарные елементы, в массиве В пишутся нули и программа не работает. Как избавится от нулей, что изменить???

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  A:array[1..10] of integer = (82,52,51,42,37,32,21,18,17,12);
  n=10;
var
  B: array[1..n] of integer;
  w,i,k : integer;
begin
  writeln('mas A:');
    for i:=1 to 10 do write(A[i],'  ');
  Writeln;
  k:=n;
  for i:=1 to 10 do
    begin
     w:= A[i] mod 2;
     if w = 0 then B[i]:=A[i]
     else k := k - 1;
    end;
  writeln('mas B:');
  for i:=1 to k do write(B[i],'  ');
  Writeln;
readln;
end.

[Form_13]

А что значит парные элементы, будьте добры уточнить. Возможно Вы имели ввиду: чётные и нечётные?

[Form_13]

Если я правильно понял, то вот исправленный вариант программы:

program Project2;

const
  A:array[1..10] of integer = (82,52,51,42,37,32,21,18,17,12);
  n=10;
var
  B: array[1..n] of integer;
  w,i,k,h : integer;
begin
  writeln('mas A:');
    for i:=1 to 10 do write(A[i],'  ');
  Writeln;
  k:=n;
  for i:=1 to 10 do
    begin
     w:= A[i] mod 2;
     if w = 0 then
      begin
       h:=h+1;
       B[h]:=A[i]
      end;
    end;
  writeln('mas B:');
  for i:=1 to h do write(B[i],'  ');
  Writeln;
readln;
end.

За количество элементов в массиве B у на несёт ответственность отдельная переменная, вот и всё.

[kuy]

Да, вы правельно поняли, имел ввиду чётные и нечётные, спасибо большое!
только код чуть подправил:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  A:array[1..10] of integer = (85,52,51,42,37,32,21,18,17,11);
  n=10;
var
  B: array[1..n] of integer;
  w,i,h : integer;
begin
  writeln('mas A:');
    for i:=1 to 10 do write(A[i],'  ');
  Writeln;
  h:=0;
  for i:=1 to 10 do
    begin
     w:= A[i] mod 2;
     if w = 0 then
      begin
       h:=h+1;
       B[h]:=A[i]
      end
    end;
  writeln('mas B:');
  for i:=1 to h do write(B[i],'  ');
  Writeln;
readln;
end.