Определить минимальный элемент массива среди положительных и его индекс

uses
  crt;
type
  tAr = array[1..100] of integer;
 
// ïðîöåäóðà èíèöèàëèçàöèè ìàññèâà
procedure init(var ar: tAr; n: integer);
var i: integer;
begin
  for i:=1 to n do
    ar[i]:=random(199)-99;
end;
 
// ïðîöåäóðà âûâîäà ìàññèâà íà ýêðàí
procedure output(ar: tAr; n: integer);
var i: integer;
begin
  for i:=1 to n do
    write(ar[i],' ');
  writeln;
end;
 
// ôóíêöèÿ îïðåäåëåíèÿ ìèíèìàëüíîãî
function minim(ar: tAr; n: integer): integer;
var i,min,im: integer;
begin
  im:=0;
  for i:=1 to n do // îïðåäåëÿåì ïåðâûé ïîëîæèòåëüíûé, íå÷åòíûé
    if (ar[i]>0)and(odd(ar[i])) then
    begin
      im:=i;
      break;
    end;
    
  for i:=im+1 to n do // â öèêëå îò ïåðâîãî ïîëîæèòåëüíîãî íå÷åòíîãî..
    if (ar[i]>0)and(odd(ar[i]))and(ar[i]<ar[im]) then // èùåì ìèíèìàëüíûé
      im:=i;
  minim:=im;
end;
 
// îñíîâíàÿ ïðîãðàììà
var
  a,b: tAr;
  i,n,k: integer;
begin
  clrscr;
  write('Ââåäèòå ðàçìåð ìàññèâà A n: ');
  readln(n);
  init(a,n);
  writeln('Ìàññèâ A:');
  output(a,n);
  k:=minim(a,n);
  if k=0 then writeln(' ìàññèâå íåò ïîëîæèòåëüíûõ íå÷åòíûõ ýëåìåíòîâ')
    else writeln('Ìèíèìàëüíûé ïîëîæèòåëüíûé íå÷åòíûé = A[',k,'] = ',a[k]);
  writeln;
    
  write('Ââåäèòå ðàçìåð ìàññèâà B n: ');
  readln(n);
  init(b,n);
  writeln('Ìàññèâ A:');
  output(b,n);
  k:=minim(b,n);
  if k=0 then writeln(' ìàññèâå íåò ïîëîæèòåëüíûõ íå÷åòíûõ ýëåìåíòîâ')
    else writeln('Ìèíèìàëüíûé ïîëîæèòåëüíûé íå÷åòíûé = B[',k,'] = ',b[k]);
end.

Uses Crt;
Type Mas=Array[1..100] Of Integer;
 
Var A:Mas;
    i,k,min,ind:Integer;
    pp:Boolean;
 
Procedure SozdMas(Var A:Mas; n:Integer);
Var i:INteger;
Begin For i:=1 To N Do A[i]:=Random(21)-10; End;
 
Procedure Uslovie1(var A:Mas; N:Integer; Var min,ind:Integer);
Var i:Integer;
Begin
     min:=MaxInt; pp:=False;
     For i:=1 To N Do
         If (A[i]<min)and(A[i]>0)and(i mod 2=1) Then Begin
            min:=A[i];
            ind:=i;
            pp:=true;
         End;
End;
 
Procedure Vyvod(Var A:Mas; n:Integer);
Var i:Integer;
Begin
     For i:=1 To N Do Begin
         TextColor(7);
         If pp Then If ind=i Then TextColor(12);
         Write(A[i]:4);
     End; Writeln;
End;
 
BEGIN
k:=1; ClrScr;
While k<>0 Do Begin
      min:=-1;
      Write('dlina massiva (0 - vyhod) = '); Readln(k);
      SozdMas(A,k);
      Uslovie1(A,k,min,ind);
      Vyvod(A,k);
      If min>=0 Then Writeln('minimalniy element: ',min,' , poziciya: ',ind)
      Else Writeln('net elementov po usloviu');
End;
END.