Из 6-ти заданных чисел найти максимум и минимума с указанием четное оно или нечетное [Паскаль]

[Gevorg7]

помогите пожалуйста хотя бы как начать.
Из 6-ти заданных чисел найти максимум и минимум. Вывести на печати эти числа с указанием четное оно или нечетное.

[Mad_Cat]

x1:=1;x2:=1;
for i:=2 to 6 do begin
if a[i]>a[x1] then x1:=i;
if a[i]<a[x2] then x2:=i;
end;
write('max=',a[x1]);
if odd(a[x1]) then writeln('He4eT')
else writeln('4ET');
write('min=',a[x2]);
if odd(a[x2]) then writeln('He4eT')
else writeln('4ET');

[Gevorg7]

спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!спасибо!!!!!!!!!!!!!!!!!!!!!!!!! спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!