Pascal, момент с выводом массива.

[SZero]

Здравствуйте.
Нужно сделать программку, очень простеньку. Она составляет массив действительных числ, делает выборку элементов относительно заданной константы, выводит эти элементы в новый массив и дальше совершает над ним ряд действий по простым математическим формулам.
С заданием максимального количества элементов, заполнением и выводом исходного массива я справился. Дальше выбор элементов ( те, что больше константы - не нужны, что меньше - в новый массив ). Это тоже сделал, счетчик считает верно, а вот вывести этот получившийся массив не получается. Кол-во элементов выводит верное, а сами элементы - нули.
Вот что я смог сделать:
program p;
uses crt;
const z=10;
var
b:array[1..10] of real;
a:array[1..10] of real;
k:integer;
i,n:integer;
begin
clrscr;
repeat
write('Максимальное число эл-тов - ');
read(n);
if (n>10) or (n<=0) then
begin
writeln('ошибка');
writeln;
end;
until (n>0) and (n<=10);
writeln('Заполнение массива');
writeln;
for i:=1 to n do
begin
write('вводим''[',i,']''элемент, равный ');
read(a[i]);
end;
writeln;
writeln('исходный массив');
for i:=1 to n do
write(a[i]:5:1);
writeln;
writeln('выборка эл-тов');
writeln;
k:=0;
for i:=1 to n do
if (a[i]<z) then
begin
k:=k+1;
end
else
k:=k+0;
begin
writeln('получившийся массив');
for j:=1 to k do
write(a[j]:5:1);
end;
end.
Собственно весь вопрос заключается в 3 и 4 строчках с конца...видимо там я что-то не так поставил.
Заранее спасибо, извините если много...

[eoln]

writeln('выборка эл-тов');
writeln;
k:=0;
for i:=1 to n do
if (a[i]<z) then
begin
k:=k+1;
end

Массив в не заполняется нигде, замени на это:

writeln;
k:=0;
for i:=1 to n do
if (a[i]<z) then
begin
k:=k+1;
b[k]:=a[i]
end

writeln('получившийся массив');
for j:=1 to k do
write(a[j]:5:1);
end;

Выводить надо новый массив, например так:

writeln('получившийся массив');
for i:=1 to k do
write(b[i]:5:1);
end;
repeat until keypressed

[SZero]

Большое спасибо, понял свою ошибку, небыло заполнения массива b. Большое спасибо еще раз.