Вывести числа массива, которые по модулю меньше данного положительного числа A

Program special;
const nmax=20;
var m:array[1..nmax] of integer;
var i,k,n:byte;a:integer;
begin
writeln('Индексы элементов, по модулю меньших ',a);
randomize;
a:=-50+random(100);
k:=0;
for i:=1 to n do
if abs(m[i])<a then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then write('Таких элементов нет');
end.

program special;
const
  nmax=20;
var
  m:array[1..nmax] of integer;
  i,k,n:byte;a:integer;
begin
  randomize;
  write('A: ');
  readln(a);
  writeln('Исходный массив:');
  k:=0;
  for i:=1 to nmax do
    begin
      m[i]:=-50+random(100);
      write(m[i]:4);
    end;
  writeln('Элементы, по модулю меньшие ',a);
  for i:=1 to nmax do
    if abs(m[i])<a then
      begin
        inc(k);
        write(m[i]:4);
      end;
  writeln;
  if k=0 then
    write('Таких элементов нет')
  else
    write('K: ',k);
  readln;
end.