Формирование массива

[LittleStudent]

Уважаемые программисты прошу помочь.
Нужно сформировать новый массив для вывода данных.
Ну а вот и сама программа:

const
  N = 10;
var
  A: array[1..N] of Integer;
  i, vsterch: Integer;
  c: boolean;
begin
 For i:=1 to n do
   read(a[i]);
   writeln;
   vstrech := A[1];
   c := false;
   for i := 2 to N do begin
      if (vstrech = A[i]) then 
      c := not c
      else begin
      if (c) then
        writeLn(vstrech, ' встречается чётное число раз.');
        vstrech := A[i];
      c := false;
    end;
  end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.