Запросить и ввести количество членов линейного массива не более 50 затем сам массив действительных чисел вывести получившийся массив и вывести номера элементов равных 7,5

Program _massiv;   var  a: array[1..50] of real;     i,c: integer;   begin  writeln('задайте количество членов линейного массива');   readln(c);   for i: =1 to c do begin  writeln('введите',' ',i,' элемент массива');   readln(a[i]);     end;   for i: =1 to c do writeln('элемент массива ',i,' равен ',a[i]);   for i: =1 to c do  if a[i]=7.5 then writeln('номер элемента массива, равный 7.5   ',i)  end.