Подсчитать количество и напечатать номера элементов массива, которые больше чем b, с непарными номерами

1  Program masiv;
2  uses crt;
3  type
4  MAS=array[1..15] of real;
5  var
6  x:MAS;
7  i,n:integer;
8  min:real;
9    begin
10    clrscr;
11    writeln('Ввод элементов массива');
12    for i:=1 to 15 do
13       begin
14         write('x[',i,']='); readln(x[i]);
15       end;
16       min:=x[1];
17       n:1;
18         for i:=1 to 15 do
19         begin
20         if x[i]<min then
21            begin
22            min:=x[i];
23            n:=i;
24            end; end;
25    writeln('Ввод минимального элемента', min:5:2,' ','Его номер:',n);
26  end.

const
  n=15; a=2; b=3;
  mas : array[1..n] of real = (0.01,-27.3,0,1.25,-371,0.5,-0.1,1.2,
                              -5,-172.3,19783,-2.7,43.51,0,-0.02);
var
  k,i : byte;
Begin
  writeln('massive:');
  for i:=1 to n do write(mas[i]:8:2); writeln;
  writeln('nomera el-ov bolshe ',b,' : '); k:=0;
  for i:=1 to n do if mas[i]>b then begin
    if k=0 then write(i) else write(', ',i);
    inc(k);
  end; writeln('.  W kol-ve ',k,' stuk.');
  readln;
End.