Помогите найти ошибку. Паскаль
Помогите найти ошибки в программе:
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые
значения от 0 до 10 000 включительно. Напишите на одном из языков программирования
программу, которая находит минимальный элемент массива, затем удваивает все элементы
массива, которые меньше, чем удвоенный минимальный, и выводит изменённый массив в
обратном порядке, по одному числу в строке. Например, из массива
7, 5, 9, 4, 8, 7, 14, 9
программа должна получить массив
14, 10, 9, 8, 8, 14, 14, 9
и вывести (по одному числу в строке) числа:
9 14 14 8 8 9 10 14

const N = 8;
var i, j, k: longint;
a: array [1..N] of longint;
begin
for i := 1 to N do
readln(a[i]);
k:=10001;
for i:=1 to N do
begin
if a[i] < k then
k:=a[i];
end;
for i:=1 to N do
if a[i] < 2*k then
a[i]:=2*a[i];
for i:=1 downto N do
writeln(a[i]);
end.

const N = 8;var i, j, min: longint;a: array [1..N] of longint;beginfor i := 1 to N doreadln(a[i]);min := a[1];for i:=1 to N dobeginif (a[i] <= 10000) and (a[i] >= 0) and (a[i] < min) thenmin:=a[i];end;min := min * 2;for i:=1 to N doif a[i] < min thena[i]:=2*a[i];for i:=N downto 1 dowriteln(a[i]);end.