Паскаль, массивы.

[SZero]

Всем привет.
Нужно решить следующую задачу. Дан массив и константа. Нужно задать этот массив, потом произвести выбор элементов, меньших заданной константы и сформировать новый массив из выбранных элементов.
Я смог только задать исходный массив и сделать счетчик. Программа строит исходный массив, делает выбор нужных элеметов, но вот как построить получившийся массив я не знаю. При выводе в нем правильное только количество элементов, а сами они выводятся нулями.
Помогите пожалуйста.
З.Ы. Язык паскаль.

[vitalik007]

var
konst:integer;
m1,m2:array of integer;
n:integer;
i:integer;
begin
readln(konst);
readln(n)//длина массива
setlength(m1,n);
for i:=0 to n-1 do
readln(m1[i])        //заполнение 
for i:=0 to length(m1)-1 do 
  if m1[i]<konst then 
  begin
     setlength(m2,length(m2)+1))
     m2[length(m2)-1]:=m1[i];
  end;
for i:=0 to length(m2)-1 do
writeln(m2[i])     //вывод
readln;
end;

[SZero]

Эмм...что-то я не понял.
Допустим a,b - массивы, а - исходный, b - который должен получится.
k - счетчик, z - константа, n - макс. кол-во эл-тов в исходном массиве.
write('Макс число эл-тов - ');
read(n);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n do
write(a[i]);
*Итак, выведен заполненный массив*
k:=0;
for i:=1 to n do
begin
if (a[i]<z) then
begin
k:k+1;
end;
if (a[i]>k) then
begin
k:=k+0;
end;
end;
*Это счетчик*
Вот это я сделал, а как дальше в массив эти числа, которые в счетчике вывести я не знаю =( Там максимальное число будет K, а дальше...???

[vitalik007]

ЧТО ТЕБЕ в моем варианте не устраивает??????????

[puporev]

Да наворотил ты до небес в простейшей задаче, даже динамические массивы, которых в Паскале нет.
Все решается намного проще.

uses crt;
var a,c:array[1..20]of integer;
    b,i,n,k:integer;
begin
clrscr;
write('n=');readln(n);
write('b=');readln(b);
for i:=1 to n do
     begin
      a[i]:=random(20);
      write(a[i],' ');
     end;
writeln;
k:=0;
for i:=1 to n do
if a[i]<b then
     begin
       k:=k+1;  //считаем нужные элементы
       c[k]:=a[i];
     end;
for i:=1 to k do
write(c[i],' ');
readln
end.

[SZero]

Все понял, во всем разобрался. Я забыл вот это вставить - c[k]:=a[i];
Ребят большое вам спасибо =)