МОЖНО НЕ ДВА ВАРИКА ,НО ХОТЯБЫ ОДИН

Const
    N = 10;

var
    A: array[1..N] of integer;

function Fun: integer;
var
    i, M: integer;
begin
    writeln('Введите число M=');
    readln(M);
    for i := 1 to N do
        if A[i] = M then Fun := i;
end;

procedure CreateMassive;
var
    i: integer;
begin
    for i := 1 to N do
    begin
        A[i] := Random(199) - 100;
        write(A[i],' ');
    end;
    Writeln;
end;

begin
    CreateMassive;
    Writeln(Fun);
end.

вот вариант исправления который работает, хотя конечно не факт что он работает как там кто-то задумывал)))
не понятно было назначение функции Fun потому она делает поиск номера элемента равного М
а вообще глобальные переменные это зло. Так что проектирование тут в корне не верно

1. У Scratch 2 виконавців також називають спрайтами (англ. sprite — уявний герой). Усі спрайти мають свої властивості: ім'я, положення на Сцені, розміри, напрямок, у якому вони будуть рухатися, колір костюма та інші.

2. Переглянути та змінити значення властивостей об'єктів можна в розділі Інформація або у вбудованому графічному редакторі. Створити новий спрайт або вибрати тло для сцени можна кількома обрати готовий об'єкт із бібліотеки, намалювати у графічному редакторі, уставити з файла, сфотографувати камерою.

3. Сцена має такі властивості: розмір (480 на 360 кроків виконавця) і тло. Якщо вибрати цей об'єкт, то на вкладці Тло можна змінити зображення на тлі Сцени, використавши кнопки на панелі інструментів: обрати з бібліотеки, намалювати у графічному редакторі, завантажити з будь-якого файла з графічним зображенням.

4. обрати готовий об'єкт із бібліотеки, намалювати у графічному редакторі, уставити з файла, сфотографувати камерою.

5. Програмними об'єктами середовища Scratch є спрайти (виконавці) та Сцена. Усі спрайти мають свої властивості: ім'я, положення на Сцені, розміри, напрямок, у якому вони будуть рухатися, колір костюма та інші. Сцена як об'єкт середовища Scratch має властивості Тло та розмір. Кожна із цих властивостей має своє значення.

6. ?

7. Сцена як об'єкт середовища Scratch має властивості Тло та розмір. ... У середовищі Scratch вибрати дії зі спрайтами (вилучити, дублювати, сховати, збільшити, зменшити, переглянути інформацію) можна в контекстному меню об'єкта або в Рядку меню програми.

Объяснение: