Найти ошибку в программе Pascal

Ввод данных:

6

1 3 6 2 5 4

Программа:

program permutace;

var

i: integer;

min, trial, n: integer;

lex: array[1..100] of integer;

begin

readln(n);

for i:=1 to n do read(lex);

for i:=6 downto 5 do

begin

if lex[n-1]

end;

end.

Иследую кусок от 6 до 5, не могу понять почему min=0, по моему мнению он должен ровняться 2.