в турбо паскале массивы

[sanya006]

нужно чтобы было.
mod 2=0
ввод и вывод массива
\

из четных чисел исходного массива сформировать новый массив зафиксировать позиции этих чисел....

[ИринаForeve]

Задание честно не очень понятно!!!
Че поняла пишу:

program m;
uses crt;
var
k,i:integer;
a,b:array[1..15] of integer;
c:array[1..15] of integer;
begin
clrscr;
write('vvedite mas => ');
for k:=1 to 15 do read(a[k]);
i:=0;
for k:=1 to 15 do if (a[k] mod 2)=0 then
begin
 inc(i);
 b[i]:=a[k]; {четное число в новый массив}
 c[i]:=k; {фиксация позиции}
end;
k:=i;
write('poziciya     =>');
for i:=1 to k do write(c[i]:4); {вывод позиций}
writeln;
write('novij massiv =>');
for i:=1 to k do write(b[i]:4); {вывод нового массива}
readkey;
end.

Правляйте)))