10 баллов! составьте программу выводящую на экран значение любого элемента массива В[10]вещественных чисел по введенному с клавиатуры индекса. в паскале

почему нет?

varx, i: integer;b: array[1..10] of real;beginfor i:=1 to 10 dobeginwrite('B[', i, '] = ');readln(b[i]);end;write('Индекс: ');readln(x);if (x>0) and (x<11) thenwrite('B[', x, '] = ', b[x])elsewrite('Нет значений для данного индекса')end.