Находится ли введенное с клавиатуры число в массиве - Free Pascal

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

Написать программу, которая проверяет, находится ли введенное с клавиатуры число в массиве. Массив должен быть заполнен случайными числами из диапазона [-50;50]. Организовать вывод массива на экран.

Решение задачи: «Находится ли введенное с клавиатуры число в массиве»

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

const
    answer: Array[Boolean] Of String[4] = ('No!', 'Yes!');
var
    ar: Array Of ShortInt;
    i, n: Word;
    x: Integer;
    state: Boolean;
begin
    Randomize();
    repeat
        Write('Input array length: ');
        ReadLn(n);
    until (n > 0);
    SetLength(ar, n);
    for i := 0 to n - 1 do
    begin
        ar[i] := Random(101) - 50;
        Write(ar[i]:4);
    end;
    WriteLn;
    Write('Input number to check: '); ReadLn(x);
    i := 0; state := False;
    while ((i < n) And (Not state)) do
    begin
        state := (x = ar[i]);
        Inc(i);
    end;
    Write(answer[state]);
end.

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

В этом коде:

Объявляется массив строк с двумя элементами: No! и Yes!.
Объявляются следующие переменные:
- ar - массив целых чисел,
- i и n - счётчики,
- x - число для проверки,
- state - флажок, сбрасываемый в начале каждого цикла.
Инициализируется генератор случайных чисел.
Цикл повторяется до тех пор, пока не будет введено положительное значение длины массива.
Задаётся длина массива ar и заполняется случайными числами от -50 до 50.
Каждое число массива выводится на экран в 4-х знакочных символах.
Вводится число для проверки.
Цикл проверяет, равно ли введенное число каждому числу в массиве.
Если число найдено, то выводится соответствующая строка из массива строк. Код выполняет следующие действия:
- Запрашивает длину массива.
- Заполняет массив случайными числами.
- Выводит числа массива на экран.
- Проверяет, содержит ли массив введенное число.
- Выводит соответствующую строку из массива строк.