Определить число элеменов, меньше либо равных 10, их порядковые номера

var
a,a_i:array[1..15] of double;
i,k:integer;
begin
writeln('Введите 15 элементов массива: ');
for i:=1 to 15 do 
read(a[i]);
write(' ');
k:=0;
for i:=1 to 15 do
if (a[i]<=10) then
begin
k:=k+1;
a_i[k]:=i;
end;
writeln('количество чисел <=10 равно '+k+', их индексы:');
for i:=1 to k do
write(a_i+' ');
end.

for i:=1 to k do
write(a_i[i]+' ');

var
a,b:array[1..15] of double;
a_i:array[1..15] of integer;
i,k:integer;
Q,sum:double;
begin
writeln('Введите 15 элементов массива: ');
for i:=1 to 15 do 
read(a[i]);
write(' ');
sum:=0;
k:=1;
writeln('введите Q');
readln(Q);
for i:=1 to 15 do
if(a[i]>10) then
begin
sum:=sum+a[i];
a_i[k]:=i;
k:=k+1;
end;
if (sum<Q) then
begin
for i:=1 to k do
begin
b[i]:=a[a_i[k]];
end;
end;
for i:=1 to k do
begin
read(b[i]);
write(' ');
end;
end.

const
    n = 15;
type
    TArray = Array[1..n] Of Double;
procedure Zad1(const ar: TArray);
var
    i, count: Byte;
begin
    count := 0;
    Write('Elements less or equal 10:');
    for i := 1 to n do
        if (ar[i] <= 10)
        then
        begin
            Inc(count);
            Write(' ', ar[i]:0:3);
        end;
    if (count = 0)
    then
        WriteLn(#9, 'No one!')
    else
        WriteLn(#9, 'Count: ', count);
end;
procedure Zad2(var ar1, ar2: TArray; var n1, n2: Byte);
var
    q, qTemp: Double;
    i, j: Byte;
begin
    n1 := n; n2 := 0;
    Write('Input q='); ReadLn(q);
    qTemp := 0; i := 1;
    while ((qTemp <= q) And (i <= n)) do
    begin
        if (ar1[i] > 10)
        then
            qTemp := qTemp + ar1[i];
        Inc(i);
    end;
    if (qTemp <= q)
    then
    begin
        i := 1;
        while (i <= n1) do
        begin
            if (ar1[i] > 10)
            then
            begin
                Inc(n2);
                ar2[n2] := ar1[i];
                for j := i + 1 to n1 do
                    ar1[j - 1] := ar1[j];
                Dec(n1);
            end
            else
                Inc(i);
        end;
        WriteLn; Write('M:');
        for i := 1 to n1 do
            Write(' ', ar1[i]:0:3);
        WriteLn; Write('B:');
        for i := 1 to n2 do
            Write(' ', ar2[i]:0:3);
        WriteLn;
    end
    else
        WriteLn('Sum is more than ', q:0:3, '!');
end;
procedure Zad4(const ar: TArray; const n2: Byte);
var
    i, id: Byte;
begin
    if (n2 > 0)
    then
    begin
        id := 1;
        for i := 2 to n2 do
            if (ar[i] > ar[id])
            then
                id := i;
        WriteLn('Max(B[])=', ar[id]:0:3, ' at ', id);
    end
    else
        WriteLn('Array length is 0!');
end;
var
    m, b: TArray;
    n1, n2, i: Byte;
begin
    Randomize;
    for i := 1 to n do
    begin
        m[i] := Random * 19 + 1;
        Write(' ', m[i]:0:3);
    end; WriteLn;
    Zad1(m); Zad2(m, b, n1, n2); Zad4(b, n2);
end.