паскаль. индекс элемента массива

[belka1]

Найти индекс элемента, который равен числу А

Длинна массива = 10

тип элементов массива : real

[Базиля]

держи:

program zad1;
type massiv=array[1..10] of real;
var b:massiv;
    p,i:integer;
    a:real;
    begin
    writeln('введите элементы массива');
    for i:=1 to 10 do
    begin
    write('a[',i,']=');
    readln(b[i]);
    end;
    writeln('введите число А');
    readln(a);
    for i:=1 to 10 do
    if b[i]=a then
    begin
    writeln('индекс элемента который равен числу А = ',i);
    inc(p);
    end;
    if p=0 then writeln('такого числа в массиве нет');
    end.

[belka1]

огромное спасибо=)