Ввести с клавиатуры массив из 7 частей,отыскать в нём малый элемент

Program znanija;
const n = 7;
var 
a:array[1..n] of integer;
mini, min, i, b:integer;
begin
mini := 1;

write('Введите массив из ', n, ' частей:');
for i := 1 to n do
begin 
read(b); 
a[i] := b; 

if i = 1 then min := b;   

if b lt; min then  
begin 
min := b; 
mini := i; 
end;   

end;

write('Массив в оборотном порядке: ');
for i := n downto 1 do 
write(a[i], ' '); 

writeln(); 
write('Минимальный элемент массива ', min, ', его номер ', mini);
end.