Составить алгоритм поиска максимума среди нечётных элементов массива — Pascal(Паскаль)

uses
  crt;
const
  N=10;
var
  a:array[1..N]of integer;
  i,min:integer;
begin
  clrscr;
  writeln('-:');
  min:=0;
  for i:=1 to N do
  begin
    a[i]:=random(100)-50;
    if odd(a[i]) and (min=0) then
      min:=i;
    write(a[i],' ')
  end;
  writeln;
  if min<>0 then
  begin
    for i:=min to N do
      if odd(a[i]) and (a[i]>a[min]) then
        min:=i;
    writeln('Мин. a[',min,']=',a[min])
  end
  else
    writeln('Нет мин.!')
end.