составить программу на паскале используя оператор цикла в сочетании с оператором условного перехода(без массивов)

[Naruto_026]

даны натуральное число n и действительные числа x1, x2,...xn
найти минимальное число среди -x1, x2, -x3, x4,...(-1)^n*xn
помогите пожалуйста а то я даже не знаю с чего начать

[llatpoh]

read(n,max);p:=-1;
for i:=1 to n-1 do begin read(x);p:=-p;if max>(x*p) then max:=p*x;end.
writeln(max);end.
кусочек проги