Надо очень срочно и быстро подробно решить задачку!(полностью решить,а то это зачётная....воть)

Вводится длина вектора и значения его элементов.Все элементы, меньшие заданного значения, и их номера записать в новые векторы.

как работать с массивами найдешь тут

осоновная часть :

nY := 0;
for i:=1 to n do
 if x[i]<k then begin
   inc(nY);
   y[nY] := x[i];
end;

// где к -заданное значение ...