В массиве посчитать количество частей великих чем 11(Частей массива 23.Массив вводится

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