Ряд вопросов по массивам, pascal

[ene21]

Всем добрый день. Помогите пожалуйста с некоторыми моментами, которые не совсем понятны.
1) Поставленна следующая задача: Дан массив чисел. И дано некое число в виде постоянной. Нужно сделать выборку ( больше/меньше ) заданного числа и составить из подходящих элементов новый массив.
Собственно заминка в том, что массив на выходе получаеться с нулевыми элеметами. Т.е. количество элементов правильное, но сами элементы - нули. Вот часть кода:
счетчик.JPG
K - счетчик. A, i - это к массиву. Видимо ошибка моя кроеться тут.
2) Второй мой вопрос на счет пузырьковой сортировки. Вроде бы понятно, но опять таки, не пашет. Если кому не сложно, выложите кусок кода, который отвечает непосредственно за переставление элементов и перебор их всех.
3) И третий вопрос. Сложно ли освоить язык ruby? Просто мне советуют на него переходить, говорят простой, но на вид я бы так не сказал.
Заранее спасибо.

[ОДИНОЧЕСТВО В СЕТИ]

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

вот это вставьте вместо своего кода!

"пузырек"

procedure BubbleSort(var d:vector;kol2:integer); {d - это массив, kol2 - количество элементов в массиве }
var j,k:integer;
flag:boolean;
begin
repeat
flag := true;
for i := 1 to kol2-1 do
if d[i] > d[i+1] then
begin
k := d[i];
d[i] := d[i+1];
d[i+1] := k;
flag := false;
end;
until flag = true;
end;

[ene21]

Что-то совсем никак не получаеться с первым вопросом. Похоже я дерево совсем =)
Вот "главная" часть кода. Что тут не так?
часть.JPG
b - это второй массив. k - счетчик. j - индекс к массиву b. Тоесть у меня получаеться как-бы один исходный, а второй я оставляю пустым. Но помоему это как-то в 1 массив делаться должно...

[ОДИНОЧЕСТВО В СЕТИ]

а k - зачем обнуляете то???? уберите строку

 k:=0;

[ene21]

А куда девать эелементы, которые не подходят по условию? Я пробовал, убрать else и условие k:=k+0; В этом случае если нужные мне элементы стоят в начале массива ( например константа 5, а массив: 6,7,0,0,4,2 ) то все без проблем, но стоит ввести массив, где нужные элементы в конце то программа отказываеться работать...
Или я может не так в выводе массива что-то делаю...