Обработка структурированных данных. Работа с одномерными массивами

[Manya-srt]

Напишите программу, которая из элементов заданного вектора X формирует вектор Y, в который войдут элементы Xi, по модулю не превышающие заданного числа A.

[GetMax]

Manya-srt,хотя бы ради приличия язык программирования указали.

[Mad_Cat]

//pascal/delphi
k:=0;
for i:=1 to n do
if abs(x[i])<=a then begin inc(k);y[k]:=x[i];end;
for i:=1 to k do
write(y[i],'  ');

[Manya-srt]

Язык delphi