Найти первый отрицательный элемент массива, кратный заданному числу, сменить у него знак и поставить в конец м - PascalABC.NET

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

Помогите пожалуйста написать программу: Найти первый отрицательный элемент массива, кратный заданному числу, сменить у него знак и поставить в конец массива. Заранее спасибо

Решение задачи: «Найти первый отрицательный элемент массива, кратный заданному числу, сменить у него знак и поставить в конец м»

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

a[n] := x;

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

Задается значение переменной n (номер элемента в массиве, который нужно изменить)
Задается значение переменной x (число, на которое должен быть кратным элемент массива)
Используя цикл, перебираются все элементы массива a
Проверяется условие: a[i] % x = 0 (элемент массива a кратный заданному числу x) ИЛИ a[i] < 0 (элемент массива a отрицательный)
Если условие выполняется, то значение переменной a[n] меняется на значение переменной a[i] с отрицательным знаком, и переменная n увеличивается на 1.
Если условие не выполняется, то цикл продолжается.
Если цикл закончился и переменная n осталась равной 1, значит в массиве не было найдено ни одного элемента, удовлетворяющего условию, и программа завершается.
Если цикл закончился и переменная n больше 1, значит в массиве было найдено несколько элементов, удовлетворяющих условию, и программа завершается.