Найти max,min среди нечетных

[Korvax]

Здравствуйте, завалился на экзамене вот с этой задачкой))
A(15) с клавиатуры, найти max,min среди нечетных: вот что смог сделать:

a:array[1..15] of integer;
n:integer;
max:integer;
min:integer;
s:integer;
i:integer;
begin
write('введ кол. эл.');
for i:=1 to 15 do
begin
write('a[',i,']=');
readln(a[i]);

Procedure TForm1
var i,max,min:masarray[1..15] of integer;
begin
label1.caption:='';
label2.caption:='';
label3.caption:='';
for i:1 to 15 do
begin
if mas[i] mod 2=0
label3.caption:=label3.caption+inttostr(mas[i])+"
else
max:=mas[i];
min:=mas[i];
end;
max:=mas[i];
min:=mas[i];
end;

Несколько раз переделывал, но всё в пустую, препод слал на пересдачу.., задачку решал по примерному шаблону, сам очень плохо разбираюсь, но скоро пересдача или отчисление, помогите пожалуйста решить правильно задачку, и если можно составить блок схему!
Заранее спасибо.

[Helloween]

Не умею писать на паскале, но самый простой вариант:

max:= mas[1];//по-моему там с 1 массивы
min:=mas[1]; 
for i:1 to 15 do
begin
if mas[i] mod 2 != 0
begin
 if mas[i]>max then max:=mas[i];
 if mas[i]<min then min:=mas[i]; 
end; 
end;

Это только алгоритм, синтаксис сам подгони, на выходе из цикла получишь в переменных min и max минимальное и максимальное соответственно.