Найти индекс элемента массива - Pascal

Формулировка задачи:

Найти индекс элемента, который равен числу А А=6 Длинна массива = 10 тип элементов массива : real

Решение задачи: «Найти индекс элемента массива»

Листинг программы

uses crt;
label 1;
 var A:array[1..10] of real;
 i:1..10;
 j:real;
 begin
  ClrScr;
  Writeln;
  Writeln('Введите элементы массива!');
  for i:=1 to 10 do
   read(a[i]);
  Writeln('Введите искомое значение!');
  Read(j);
   for i:=1 to 10 do
    if A[i]=j then
     begin
      Writeln('Индекс равен ',i);
     goto 1;
    end;
   Writeln('Элемента с таким значением нет!');
   1:writeln('Конец');
  end.

Объяснение кода листинга программы

Объявляются переменные: A (массив), i (для цикла), j (для поиска).
Выводится приглашение для ввода элементов массива.
Происходит ввод элементов массива с помощью цикла.
Выводится приглашение для ввода искомого значения.
Происходит поиск элемента с заданным значением с помощью цикла.
Если элемент найден, выводится его индекс и переход к метке 1.
Если элемент не найден, выводится сообщение об этом и переход к метке 1.
Конец работы программы.