Из массива а получить массив е, удалив из массива а элементы, большие с

На паскале, для массивов с индексами от 1 до n

j := 1;
for i := 1 to n do
 if a[i] <= c then
  begin
  e[j] := a[i];
  j := j + 1
  end