Одномерный массив!!!

[Алексей1994]

Здравствуйте уважаемые программисты. Выручайте! Не могу правильно написать текст программы, хоть она по сути лёгкая. Вот задание, меня пугает что оно такое длинное.
1. Одномерный массив A длиной N<=50 заполнить случайными числами из диапазона [-5..30]. Составить программу определяющих сколько элементов массива превосходит по модулю заданное число M.
Наброски.

const max=50;
var a:array[1..max] of integer;
 n,i,k,m:byte;
    aa,mx:integer;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(36)-5;
  write(a[i],' ');
 end;

Бред како-то получается. Спасибо за внимание!

[ZX Spectrum-128]

Число м Вы забыли ввести.

K:=0;
For i:=1 to n do
 If a[i] > abs(m) then
  Inc(k);

[Алексей1994]

А в остальном разве правильно?

[ZX Spectrum-128]

Не смотрел, честно признаюсь. Добавьте ввод числа м, мой код и вывод к. Все это в компилятор и проверьте. С непонятками можно обратно.

[Алексей1994]

Спасибо большое!