Помогите пожалуйста) На языке Pascal составить программу, которая обретает номер первого

Сколько частей в массиве ? Числа с клавиатуры либо рандомно ?

Рандомно

А частей сколько ?

10 ?

//Предположим, что массив теснее дан
var
  NAME_OF_ARRAY : array [1.. 10] of integer := (1,1,7,1,7,1,5,7,4,10);
//Далее программка. Ей всё одинаково, какой массив дан, основное, чтобы 1-ый индекс был равен 1
begin
var i : integer := 1;    foreach ai : integer in NAME_OF_ARRAY do
  begin
    if ai = 7 then
      begin
      writeln(i);
      break;
      end
    else
    i += 1;
  end;end.