Вмассиве посчитать количество элементов больших чем 11(элементов массива 23.массив вводится случайным образом в интервале [1; 14]

Можно и без массива. 
var
 n,m,k,i,l:longint;
begin
 for i:=1 to 23 do 
 begin
 readln(m);
 if m>11 then inc(k);
end;
writeln(k);
readln;
end.

С массивом:
var
 n,m,k,l,i:longint;
 a:array[1..100]of longint;
begin
 for i:=1 to 23 do readln(a[i]);
 for i:=1 to 23 if a[i]>11 then inc(k);
writeln(k);
readln;
end.