Разделить массив на две части

[dukeklark]

Помогите пожалуйста решить

есть массив с 10 элементами разделить его на 2 в один положить те, которые попадают в интервал [10;20] в другой - те которые не вошли. В мемо в строке вывести входной масив, а дальше созданые, указавши количество элементов в каждом из них


входной массив

хххх
попадают 4 єлемента
хххх
не попадают 6 єлементов
хххххх

[evg_m]

for j:=1 to 8 do begin
  if x[j] ... then begin s1:=s1 +'; ' +inttostr(x[j]; q1:=q1+1; end else begin s2:=s2 +'; ' +inttostr(x[j]; q2:=q2+1; end;
end;

memo.add(s1);
memo.add(format('попали: %d', [q1]);
memo.add(s2);
memo.add(format('не попали: %d', [q2]);

[dukeklark]

evg_m, Большое спасибо!