Дан массив [1..n] и число m. найдите количество элементов больше числа l

Var   m,n,k,i: integer;   a: array[1..1000] of integer; begin   write('write size array: '); readln(n);   write('write m: '); readln(m);   k: =0;   for i: =1 to n do   begin     read(a[i]);     if a[i]> m     then inc(k);   end;   writeln(k);   readln;   readln end.

var x,i,x1,x2,x3: integer

s: string;

begin

  read(x);

  s: =str(x);

  x1: =int(s[1]);

  x2: =int(s[2]);

  x3: =int(s[3]);

  if (x1+x3)mod x2=0 then writeln("да")

  else writeln("нет");

end.

var

a: array[1..100] of integer;

i,n: integer;

begin

readln(n);

writeln('исходный массив');

for i: =1 to n do

begin

a[i]: =random(50)-25;

write(a[i]: 4);

end;

writeln;

writeln('измененный массив');

for i: =1 to n do

begin

if a[i]=0 then a[i]: =n;

if a[i]< 0 then

if (a[i] mod 7=0) then a[i]: =abs(a[i])

else a[i]: =a[i]*(-2);

write(a[i]: 4);

end;

end.