Паскаль, заполнение массива выборкой

[Cata1yst]

Всем здравствуйте. Нужно написать простенькую программу, которая формирует массив ( беря данные с клавиатуры ), сравнивает их с заранее указанной константой и из элементов больших, чем константа, формирует новый массив.
Успешно получилось сделать только 1 часть программы ( т.е. задание массива ). Также успешно получилось подключить счетчик. А вот что дальше незнаю...Если нужно выложить весь код - я выложу...помогите пожалуйста.
{Часть программы, отвечающая за создание массива}
k:=0; {счетчик}
for i:=1 to n do
begin
if (a[i]>z) then {a[i] - элемент массива; z - заданная константа}
k:=k+1
else
k:=0
end;

[HoLToFF]

program MsMax;
const
n = 10; { какая длинна у массива та? }
max = 50; { а значение заранее указанной константы какое?}

var a, k:integer;
m:array[1..n] of integer;
begin
k:=1;
while k <= n do
  begin
  write('Vvedite element massiva: ');
  read(a);
  if a > max then 
    begin
    m[k]:=a;
    k:=k+1;
    end;
  end;
writeln('Massiv imeet vid:');
for k:= 1 to n do
write(m[k],' ');
readln; readln;
end.