Одномерный массив

[Snowwa]

Ребят, можете посмотреть в чем ошибка?
Условие такое: Сформировать массив B=(b1,b2..bk) записав в него элементы массива A=(a1,a2...an) с четными индексами. Вычислить среднее арифметическое элементов массива B и удалить из него A(n-ый элемент)

Вот мой вариант
program m2;
var A:array [1..100] of real;
B:array [1..100] of real;
s:real;
i,num,n,k:integer;
begin
writeln('vvesti kol-vo elemntov massiva A');
readln(k);
writeln('enter massiv A');
num:=0;
for i:=1 to k do begin
read(A[i]);
for i:=1 to k do
if i div 2=0 then
begin num:=num+1;
B[num]:=A[i];
end;
S:=0;
end;
writeln('nov mas');
for i:=1 to num do begin
write(B[i]:5:2,' ');
S:=S+B[i];
end;
S:=S/k;
S:=S-A[n];
writeln;
writeln('Cr.arifmetich. massiva B-A(n)');
writeln(S:5:2);
end.

Проблема в том что например если я введу 5 элементов , то он выведет 2 четных и потом продолжает выводить нули.. Подскажете чего может?

[Marques22]

program m2;
var A:array [1..100] of real;
B:array [1..100] of real;
s:real;
i,num,n,k:integer;
begin
writeln('vvesti kol-vo elemntov massiva A');
readln(k);
writeln('enter massiv A');
num:=0;
for i:=1 to k do
read(A[i]);
for i:=1 to k do
if i mod 2=0 then
begin num:=num+1;
B[num]:=A[i];
end;
S:=0;
writeln('nov mas');
for i:=1 to num do
begin
write(B[i],' ');
S:=S+B[i];
end;
S:=S/num;
writeln;
writeln('Srednee arifmeticheskoe:',S);
readln;
writeln('vvedite element dlay udaleniay');
readln(n);
for i:=1 to num do
if(i<=n)then a[i]:=a[i+1];
a[num]:=0;
for i:=1 to num-1 do
write(b[i],' ');
readln

end.

[Marques22]

не стал исправлять прост немного переделал надеюсь норм

[Snowwa]

Сообщение от Marques22

не стал исправлять прост немного переделал надеюсь норм

Даа, спасибо так намного лучше Чуток подкорректирую )