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

На паскале, для массивов с индексами от 1 до nj := 1;for i := 1 to n do if a[i] <= c then  begin  e[j] := a[i];  j := j + 1  end