В массиве состоящего из n элементов подсчитать количество положительных элементов больших чем k- вводится с клавиатуры. Массив вводится случайным образом на [0;20].
Паскаль! Ребята срочно помогите.

PROGRAM A23;const    max = 42;var    vt:array[1..max]of integer;    i,n:byte;    x:integer;    num:integer;BEGIN  n := max;  writeln('Массив из n элементов будет задан случайными числами на интервале [0..20].');  readln(n);    writeln('Подсчитать количество положительных элементов больших чем указанное число.');  writeln('Введите число: '); readln(x);  writeln(' ');  writeln('Начальный Массив' );  randomize;  num := 0;  for i:=1 to n do begin    vt[i]:=random(-512,512);    write(vt[i], ' ');        if (vt[i]>0) then      num:=num+1;        end;  writeln(' ');  writeln('Найдено ', num,' положительных элементов больших чем ', x);  END.