Выведите все четные элементы, кратные 5 и 4, расположенные между максимальным и минимальным нечетными элементами

uses crt;
const n = 1000;
var
mas: array [1..n] of integer;
i,elementov,min,max: byte;
begin
write('Введите размерность одномерного массива:');
readln(elementov);
writeln('Заполните одномерный массив размерностью ',elementov,' элементов:');
for i:=1 to elementov do
begin
readln(mas[i]);
end;
writeln();
writeln('Введенный массив:');
for i:=1 to elementov do
begin
write(mas[i],' ');
end;
writeln();
writeln('Четные элементы кратные 5 и 4, расположенные между максимальным и минимальным элементами:');
min:=mas[1];
for i:=2 to elementov do
if (mas[i] mod 2 <> 0) and (mas[i] < min) then
begin
min:=i;
end;
max:=mas[1];
for i:=2 to elementov do
if (mas[i] mod 2 <> 0) and (mas[i] > max) then
begin
max:=i;
end;
for i:=min to max do
if (mas[i] mod 5 = 0) and (mas[i] mod 4 = 0) then
begin
write(mas[i],' ');
end;
writeln();
end.

uses crt;
const n = 1000;
var
mas: array [1..n] of integer;
i,j,elementov,tmp: byte;
sum: integer;
begin
write('Введите размерность одномерного массива:');
readln(elementov);
writeln('Заполните одномерный массив размерностью ',elementov,' элементов:');
for i:=1 to elementov do
begin
readln(mas[i]);
end;
writeln();
writeln('Введенный массив:');
for i:=1 to elementov do
begin
write(mas[i],' ');
end;
writeln();
for i:=1 to elementov do
if (mas[i] = 0) then
begin
mas[i]:=20;
end;
writeln('Преобразованный массив:');
for i:=1 to elementov do
begin
write(mas[i],' ');
end;
writeln();
sum:=0;
for i:=1 to elementov do
begin
sum:=sum+mas[i];
end;
writeln('Сумма массива = ',sum);
writeln('Отсортированный массив:');
for i:=1 to elementov-1 do
for j:=i+1 to elementov do
if (abs(mas[j]) < abs(mas[i])) then
begin
tmp:=mas[i];
mas[i]:=mas[j];
mas[j]:=tmp;
end;
for i:=1 to elementov do
begin
write(mas[i],' ');
end;
writeln();
end.