Задача: создать и полностью заполнить массив натуральных чисел длиной 200 000 случайными числами;
массив обязательно должен содержать число 20 000, при этом нельзя присваивать элементам массива
заданные/определённые значения. Других ограничений нет.

Задание: Напишите свой, исправленный, вариант функции (пример ниже) либо всего модуля. Можно
изменить код по своему усмотрению, но необходимо соблюдать главные, описанные выше, условия задачи.
Плюсом будет оптимизация скорости выполнения процедуры за счёт сокращения к-ва внутренних
итераций.

Пример процедуры:
Function ArrayTest: array of Integer;
var
i : Word;
b : Boolean;
ia : array of Integer;
begin
SetLength(ia, 20000);
Repeat
for i:=0 to Length(ia) do
ia := Random(5000000);
b := False;
for i:=0 to Length(ia) do
if ia = 20000 then
b := True;
until b;
Result := ia;
end;