Помогите написать программу на паскале абс тема "создание одномерных массивов" Создать и вывести на экран 2 одномерных массива целых чисел размерности N из текстового файла. Найти и вывести произведение всех четных элементов.

//PascalABC.NET 3.0 сборка 1139 (10.01.2016) const     n = 10; begin     var a := ArrRandom(n, 1, 100);     var b := ArrRandom(n, 1, 100);     var s := a.Union(b).Where(x -> x mod 2 = 0).Aggregate((S, x) -> S * x);     Print(S); end. ввод из текстового файла писать влом, рандом быстрее